Incrémentation automatique d'une formule dans une colonne [Résolu/Fermé]

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim DerLig As Long, Lig As Long
    Dim xplage As Range
    'parametres longueur chaines
    Dim Nom As String * 20, Prenom As String * 12, Mat As String * 12
    
    On Error GoTo fin
    
    DerLig = Range("E" & Rows.Count).End(xlUp).Row
    If Target.Count > 1 Then Exit Sub
    Lig = Target.Row
    If Not Intersect(Target, Range("A2:C" & Lig)) Is Nothing Then
        Application.EnableEvents = False
        If IsEmpty(Range("A" & Lig)) And IsEmpty(Range("A" & Lig)) Then         'RAZ infos si A et B vides
            Range("C" & Lig) = ""
            Range("D" & Lig) = ""
        End If
        If Target.Column = 3 And Target <> Empty Then   'cellule C non vide
            If IsEmpty(Range("A" & Lig)) Then
                MsgBox "Remplir le nom svp!!!!!!"
                Range("A" & Lig).Select
                Application.Undo    'raz cellule
                GoTo fin
            End If
            If IsEmpty(Range("B" & Lig)) Then
                MsgBox "Remplir le prenom svp!!!!!!"
                Range("B" & Lig).Select
                Application.Undo
                GoTo fin
            End If
            'remplissage colonne D:
            Nom = Range("A" & Lig)
            Prenom = Range("B" & Lig)
            Mat = Range("C" & Lig)
            Range("D" & Lig) = Nom & Prenom & Mat
            Range("A2:D" & DerLig).Sort Range("A2"), xlAscending 'tri croissant pour les colonnes A,B,C
        ElseIf Target.Column = 3 And Target = Empty Then
                Range("D" & Lig) = ""
                Range("C" & Lig).Select
                MsgBox "Attention: Infos incomplete(s)!!!!!!"
                GoTo fin
        End If
        Set xplage = Range("E" & Rows.Count).End(xlUp) 'tri croissant pour la colonne f (n° de téléphone)
        Set xplage = Range(Range("E1"), xplage) 'tri croissant pour la colonne f (n° de téléphone)
        xplage.Sort key1:=Range("E1"), order1:=xlAscending, header:=xlYes 'tri croissant pour la colonne e (n° de téléphone)
    End If
fin:
    Application.EnableEvents = True
End Sub