KTM bonsoir,
On error resume next 'on gère les erreurs
'. . . . . la ligne qui peut causer une erreur
If Err<>0 then Exit Sub 'si err on quitte
'si on a corrigé l'erreur et l'on veux poursuivre
Err.Clear 'on efface l'error
'si on veut supprimer la gestion des erreurs
On Error Goto 0 'zero
Bruno