Ajouter des donnees l'un apres l'autre

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.

Bonjour

Un aperçu de ton fichier serait le bienvenu

Crdlt

.

Bonjour

A première vue ton fichier fonctionne bien voir ci-dessous

sur l'onglet (suivi2) tout reste noté

Crdlt

MERCI BIEN CA FONCTIONNE