Bonjour,
la philosophie générale c'est :
Sub test()
For i = 1 To 3
On Error GoTo GESTERR
'...Longue suite d'instruction qui peuvent générer un erreur
Err.Raise 5010, , "Erreur provoquée."
If Y Then
For k = 1 To 3
MsgBox "la boucle suivante s'exécute."
Next
End If
Next
Exit Sub
GESTERR: If Err.Number = 5010 Then Y = True
Err.Clear
Resume Next
End Sub
Après en jouant sur Err.Number, sur Y et sur d'autres variables tu peux aussi arriver à différencier des erreurs dans les boucles suivantes... mais ça, ça se fait en mode débogage avec le fichier !
A+