Actualiser la numérotation automatiquement

Private Sub validation_Click()
Dim O As Worksheet 'décalre la variable O (Onglet)
Dim DL As Long 'décalre la variable DL (Dernière Ligne)

Set O = Worksheets("Feuil1") 'à adapter à ton cas
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet O
O.Cells(DL + 1, 2).Value = Me.nom.Value 'renvoie la valeur du contrôle dans la ligne DL+1, colonne 2
O.Cells(DL + 1, 3).Value = Me.prenom.Value 'renvoie la valeur du contrôle dans la ligne DL+1, colonne 3
O.Cells(DL + 1, 4).Value = Me.TextBox3.Value 'renvoie la valeur du contrôle dans la ligne DL+1, colonne 4
O.Cells(DL + 1, 5).Value = Me.TextBox4.Value 'renvoie la valeur du contrôle dans la ligne DL+1, colonne 5
O.Cells(DL + 1, 6).Value = Me.ComboBox1.Value 'renvoie la valeur du contrôle dans la ligne DL+1, colonne 6
O.Cells(DL + 1, 7).Value = Me.ComboBox2.Value 'renvoie la valeur du contrôle dans la ligne DL+1, colonne 7

'cette partie permet de renuméroter les lignes dans la colonne A
O.Range("A2") = 1 'commence la numérotation en A2
'numérote par pas de 1 juaqu'a la dernière ligne DL
Range("A2").DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=1, Stop:=DL, Trend:=False
Unload Me 'vide et ferme l'UserForm en cours
End Sub

Private Sub supprimer_Click()
Dim S As Variant 'déclare la variable S (Suppression)
Dim R As Range 'décalre la variable R (Recherche)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)

'définit la variable S
S = Application.InputBox("Veuillez entrer l'ID à supprimer.", "SUPPRESSION DE L'INSCRIPTION", Type:=2)
If S = False Or S = "" Then Exit Sub 'si bouton "Annuler" ou si S est non renseignée, sort de la procédure
With Sheets("inscription") 'prend en compte l'onglet "inscription"
    Set R = .Columns(1).Find(S, , xlValues, xlWhole) 'définit la recherche R (recherche S dans la colonne 1 de l'onglet pris en compte
    'si il existe au moins une occurrence trouvée, supprime la ligne de la première occurrence trouvée
    If Not R Is Nothing Then .Rows(R.Row).Delete
    DL = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet pris en compte
.Range("A2") = 1 'commence la numérotation en A2
'numérote par pas de 1 juaqu'à la dernière ligne DL
.Range("A2").DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
   Step:=1, Stop:=DL, Trend:=False
End With 'fin de la prose en compte de l'onglet "inscription"
End Sub