Passer à la ligne suivante

Bonjour,
je suis en train de faire un formulaire d'inscription de clients et de fournisseurs, et à l'enregistrement cela recopie sur la feuille 2 les informations qui en principe devraient se trouver l'une en dessous de l'autre et c'est là que ça ne va plus, lorsque j'enregistre mon formulaire, tout est bien recopié sur la seconde feuille et le formulaire est entièrement vidé, mais lorsque je passe à l'enregistrement suivant il remplace le précédent à la place de se trouver sur la ligne suivante.

Je joins le fichier que je suis en train d'essayer de réaliser.
Je vous remercie de votre aide.

</
Sub Liste_clients()

Dim ligne As Integer
Dim num As Integer

ligne = Sheets("Clients").Range("A" & Rows.Count).End(xlUp).Row + 1 'je descend d'une ligne à chaque fois



Sheets("Clients").Range("B" & ligne).Value = Sheets("Inscriptions").Range("C4").Value 'nom
Sheets("Clients").Range("C" & ligne).Value = Sheets("Inscriptions").Range("F4").Value 'nom
Sheets("Clients").Range("D" & ligne).Value = Sheets("Inscriptions").Range("C6").Value 'nom
Sheets("Clients").Range("E" & ligne).Value = Sheets("Inscriptions").Range("F6").Value 'nom
Sheets("Clients").Range("F" & ligne).Value = Sheets("Inscriptions").Range("C8").Value 'nom
Sheets("Clients").Range("G" & ligne).Value = Sheets("Inscriptions").Range("G8").Value 'nom
Sheets("Clients").Range("H" & ligne).Value = Sheets("Inscriptions").Range("C10").Value 'nom
Sheets("Clients").Range("I" & ligne).Value = Sheets("Inscriptions").Range("E10").Value 'nom
Sheets("Clients").Range("J" & ligne).Value = Sheets("Inscriptions").Range("C12").Value 'nom
Sheets("Clients").Range("K" & ligne).Value = Sheets("Inscriptions").Range("C14").Value 'nom
Sheets("Clients").Range("L" & ligne).Value = Sheets("Inscriptions").Range("E14").Value 'nom
Sheets("Clients").Range("M" & ligne).Value = Sheets("Inscriptions").Range("G14").Value 'nom
Sheets("Clients").Range("N" & ligne).Value = Sheets("Inscriptions").Range("C16").Value 'nom
Sheets("Clients").Range("O" & ligne).Value = Sheets("Inscriptions").Range("F18").Value 'nom
Sheets("Clients").Range("P" & ligne).Value = Sheets("Inscriptions").Range("C20").Value 'nom
Sheets("Clients").Range("Q" & ligne).Value = Sheets("Inscriptions").Range("C21").Value 'nom
Sheets("Clients").Range("R" & ligne).Value = Sheets("Inscriptions").Range("C18").Value 'nom
Sheets("Clients").Range("S" & ligne).Value = Sheets("Inscriptions").Range("C22").Value 'nom
Sheets("Clients").Range("T" & ligne).Value = Sheets("Inscriptions").Range("C23").Value 'nom
Sheets("Clients").Range("U" & ligne).Value = Sheets("Inscriptions").Range("F20").Value 'nom
Sheets("Clients").Range("V" & ligne).Value = Sheets("Inscriptions").Range("F21").Value 'nom
Sheets("Clients").Range("W" & ligne).Value = Sheets("Inscriptions").Range("I4").Value 'nom



'
'Effacer le bordereau d'inscription



'----------------------------------------------------------------------------------------------
' effacement des cellules
'----------------------------------------------------------------------------------------------
Sheets("Inscriptions").Range("C4").Value = ""
Sheets("Inscriptions").Range("F4").Value = ""
Sheets("Inscriptions").Range("C6").Value = ""
Sheets("Inscriptions").Range("F6").ClearContents
Sheets("Inscriptions").Range("G8").ClearContents
Sheets("Inscriptions").Range("c8").Value = ""
Sheets("Inscriptions").Range("C10").ClearContents
Sheets("Inscriptions").Range("E10").Value = ""
Sheets("Inscriptions").Range("C12").Value = ""
Sheets("Inscriptions").Range("C14").ClearContents
Sheets("Inscriptions").Range("E14").ClearContents
Sheets("Inscriptions").Range("C16").Value = ""
Sheets("Inscriptions").Range("F18").ClearContents
Sheets("Inscriptions").Range("C20").ClearContents
Sheets("Inscriptions").Range("C21").ClearContents
Sheets("Inscriptions").Range("C18").ClearContents
Sheets("Inscriptions").Range("C22").ClearContents
Sheets("Inscriptions").Range("C23").ClearContents
Sheets("Inscriptions").Range("F20").ClearContents
Sheets("Inscriptions").Range("F21").ClearContents
Sheets("Inscriptions").Range("G16").Value = ""
Sheets("Inscriptions").Range("G14").ClearContents
Sheets("Inscriptions").Range("I4").ClearContents

End Sub

<code/<code>