Bonjour à tous

Bonjour Sylcoco

Quelque chose comme ceci :

Sub copie_ligne()
Dim lign_vide As Integer
lign_vide = Range("B1").End(xlDown).Row + 1  ' recherche premiere ligne vide
Range("2:2").Copy Range("a" & lign_vide)  ' copie de la ligne
Range("A" & lign_vide) = Range("A" & lign_vide - 1) + 1  ' incémentation
End Sub

A te lire

Eric