Bonjour,
Je dirais: cas1 goto inutile, il le fait tout seul:
l'aide sur select case précise:testexpression correspond à un élément de la liste expressionlist associé à une clause Case, le bloc d'instructions qui suit cette clause est exécuté jusqu'à la clause Case suivante ou jusqu'à End Select, dans le cas de la dernière clause. Le contrôle passe ensuite à l'instruction qui suit End Select. Si expressiontest correspond à une expression de la liste expressionlist dans plusieurs clauses Case, seules les instructions qui suivent la première correspondance sont exécutées
cas 2 : exit for est peut-être plus approprié voir aide
Vous pouvez également placer des instructions Exit For pour quitter la boucle à tout moment. L'instruction Exit For est souvent placée après l'évaluation d'une condition (If…Then, par exemple) ; elle passe la main à l'instruction située immédiatement après l'instruction Next.
Cordialement