bonjour à tous,
à tester
remplacer End par Exit Sub
Touche F1
End Termine l'exécution immédiatement. Utilisée seule, cette instruction n'est pas obligatoire. Elle peut être placée en tout point d'une procédure pour mettre fin à l'exécution du code, fermer des fichiers ouverts à l'aide de l'instruction Open et effacer des variables.
Exit Sub Quitte immédiatement la procédure Sub dans laquelle elle est utilisée. L'exécution se poursuit par l'instruction suivant celle qui a appelé la procédure Sub. cordialement