XL 2019 Problème d'ajout automatique de lignes à un tableau : la première s'ajoute au tableau mais pas les suivantes !

Private Sub BtnNouveau_Click() ' Bouton nouveau client = AUCUN séjour n'a déjà été effectué
    Dim derligne As Integer
    
    ' Controle de la saisie des dates de naissance
    For i = 1 To 4 'pour les 4 enfants
        If Me.Controls("Txt_Nom" & i) <> "" And Len(Me.Controls("Txt_Age" & i)) = 0 Then 'si il y a un nom, mais pas de date de naissance
            MsgBox ("Saisie de la date de naissance obligatoire !")
            Me.Controls("Txt_Age" & i).SetFocus
            Exit Sub
        End If
'    Next i ''''''''''''''''''Supprimer
    
     ' Controle de la saisie des dates de début de séjour
 
'  For j = 1 To 4 'pour les 4 enfants ''''''''''''''''''Supprimer
        If Me.Controls("Txt_Nom" & i) <> "" And Len(Me.Controls("Txt_DatFin" & i)) = 0 Then 's'il y a un nom, mais pas de date de début de séjour
            If MsgBox("Êtes vous sur de ne pas mettre de date de séjour ?", vbYesNo, "Dates de séjour") = vbNo Then
                 Me.Controls("Txt_DatFin" & i).SetFocus
                Exit Sub
        End If
      End If
    Next i '''''''''''''''''j'ai modifié les J en i