re
Je viens de copier le code et voici ce qu'il se passe
Oui. Oubli de ma part. désolé...
1. Rajoutez cette ligne juste en dessous des deux DIM au début du code
Dim dlg as integer
2. ensuite, vous allez peut être avoir aussi le même souci dans le code Sub ajoutligMin(cel As String)
Vérifiez bien que vous avez les deux déclarations Dim au début de ce code là aussi. J'ai corrigé au point 3 de mon post précédent.