XL 2016 Ajouter des donnees l'un apres l'autre

J'ai un formulaire pour ajouter dans donnees sur une feuille excel dans la ligne 7 comme suit:


le code est le suivant:
Private Sub CommandButton1_Click()
'----------Ajouter demandeur, destinataire
Dim ws_suivi As Worksheet 'Target sheet
Dim ws_affect As Worksheet ' Source sheet
Set ws_suivi = ActiveWorkbook.Worksheets("suivi") 'Target sheet
Fin_Liste_suivi = ws_suivi.Range("A65530").End(xlUp).Row 'Target
'-------------Ajout Demandeur-------------
ws_suivi.Cells(Fin_Liste_suivi + 1, 2) = Me.ComboBox_Demandeur.Value
Ligne = Application.Match(Me.ComboBox_Demandeur.Value, Sheets("service ").Range("A:A"), 0)
ws_suivi.Cells(Fin_Liste_suivi + 1, 3) = Sheets("service ").Range("C" & Ligne)
'-------------Ajout Desitnataire-----------
ws_suivi.Cells(Fin_Liste_suivi + 1, 10) = Me.ComboBox_Destin.Value
Ligne1 = Application.Match(Me.ComboBox_Destin.Value, Sheets("service ").Range("A:A"), 0)
ws_suivi.Cells(Fin_Liste_suivi + 1, 11) = Sheets("service ").Range("C" & Ligne1)
'-------------Ajout Affectation-----------
ws_suivi.Cells(Fin_Liste_suivi + 1, 5) = Me.ComboBox_Affect.Value
Ligne2 = Application.Match(Me.ComboBox_Affect.Value, Sheets("Liste_Affectation").Range("A:A"), 0)
ws_suivi.Cells(Fin_Liste_suivi + 1, 6) = Sheets("Liste_Affectation").Range("B" & Ligne2)
'-------------Ajouter date et redacteur----------
ws_suivi.Cells(Fin_Liste_suivi + 1, 1) = UserForm_SDE1.TextBox_Date.Value
ws_suivi.Cells(Fin_Liste_suivi + 1, 4) = UserForm_SDE1.ComboBox_Redacteur.Value

'-------Ajouter l'ann?e-------------------
ws_suivi.Cells(Fin_Liste_suivi + 1, 7) = UserForm_SDE1.TextBox_Annee_Essai.Value

end sub

le problme c'est que au lieu que a chaque fois que j'ajoute de nouvelles elements logiquement ca se met dans la ligne 8, 9, 10 …. MO CODE IL ECRASE CE QUI EST EN LIGNE 7 ET AJOUTE LES NOUVEAUX ELEMENTS.
qq peut me dire ou est l'erreur merci.