Je veux crééer une colonne id qui s'incrémente automatiquement
J ai fait ce code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Incrémenter_ID()
 
Dim i As Integer
Dim cell As Range, ID As Range
 
Set ID = Range("A2:A1000")
 
i = 1
 
For Each cell In ID
    cell.Value = i
    i = i + 1
Next cell
 
End Sub
ca me donne une colonne incrémentée mais je veux que quand je clique sur la ligne suivante ça me genere un id incrémenté
genre quand je cliquerai sur la ligne 500 pour la remplir j aurai 500 en id automatiquement Est ce que vous pourrez m aider svp?
Merci