XL 2019 Syntax VBA pour fichier tracking de processus

Bonsoir a tous,

Je développe actuellement une base de données de tracking de transactions avec des formulaires pour le remplir.
La syntaxe ci-dessous est écrite pour le premier formulaire

Mais lorsque je valide les nouvelles données écrasent la ligne existante dans la base de données au lieu de créer une ligne après la dernier ligne.

Please Help
==========================================================

Private Sub CommandButton1_Click()

'declaration des variables
Dim f1 As Worksheet
Dim derlig As Long

'identification de la feuille des donnees
Set f1 = Sheets("TRACKING")
derlig = f1.ListObjects("Table1").DataBodyRange.Rows.Count + 1 'derniere ligne du tableau

If MsgBox("Etes vous sûr de vouloir sauvegarder?", vbYesNo, "confirmation") = vbYes Then
With f1
'verifie si toutes les Textbox sont remplis
For i = 1 To 5
If Controls("Textbox" & i) = "" Then
MsgBox "Veuillez remplir toutes les cellules"
Exit Sub
End If
Next i
'Verifie si tous les comboBox sont remplis
For i = 1 To 3
If Controls("Combobox" & i) = "" Then
MsgBox "Veuillez renseigner toutes les cellules"
Exit Sub
End If

'remplissage

.Cells(derlig, i + 2) = Controls("TextBox" & i)

Next
For c = 1 To 4
.Cells(derlig, c + 5) = Controls("ComboBox" & c)
Next
For d = 4 To 5
.Cells(derlig, d + 6) = Controls("TextBox" & d)
Next

End With
End If
Unload Me