Sub copie2()
Static Compteur As Integer
Dim numligne As Integer
Compteur = Compteur + 1
numligne = Compteur + 1
Range("B7:C7").Select
Selection.Copy
Sheets("SAUVERGARDE").Select
Range("A1").Offset(Compteur, 1).Select
Cells(numligne, 1).Value = Compteur
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub