Cree un nombre de ligne x d'une cellule

c'est exactement ca je te remercie bonne journée a toi

juste petit soucis la 1er ligne de chaque saute le 1;am;C ne se met pas mais je vais chercher le probleme

Remplace la ligne :

.Range("G" & i + 2).ClearContents

Par:

.Range("G" & i + 2)=cint(1)

Sa ne fonctionne pas de mon cote