Salut Musat,
Enfin un truc simple et logique, clairement demandé... Pas de problème...
Sub InsertColNumero()
Dim i As Integer
Dim DerLigne As Integer
Dim Num As Integer
Columns("A:A").Insert
Range("A1").Value = "COMPTE"
DerLigne = Range("B65536").End(xlUp).Row
Num = 1
For i = 2 To DerLigne
Cells(i, 1).Value = Num
Num = Num + 1
Next i
End Sub
Bonne Soirée
@+Thierry