bonjour,
j'ai un probleme avec ce code :
Dim nbLigne As Long
nbLigne = Sheets("FichierClient").Range("B65536").End(xlUp).Row + 1
' copie du Nom
Sheets("fichierclient").Cells(nbLigne, 2) = nom '===> plusieurs lignes identiques, ca c ok
'creation et copie du N° client...