Numérotation automatique des données avec possibilité de supprimer des lign

Bonjour, pouvez-vous m'aider avec le code vba pour la numérotation automatique des données dans la colonne A à partir de la cellule A2, en tenant compte de la suppression des lignes,

merci beaucoup

Bonjour,

Un essai

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
For i = 1 To 100
Range("A" & i + 1) = i
Next
End Sub