Help! Copie pls cellule vers 1 autre feuille

Bonsoir à tous !

Alors voila je bloque pour effectuer une macro avec VBA.

Ce que je veux faire:
J'ai créer une interface sur une feuille de calcul pour rajouter automatiquement des nouvelles infos grâce à un bouton "Enregistrer" vers une autre feuille "Liste des clients".
Donc par exemple:
Nom de l'entreprise: XX1
Adresse: 2 rue XXX
Numéro: 0000
etc...

et les enregistrer dans une liste avec les colonnes correspondantes qui récapitule le tout quoi.

Ce qui bloque:
avec les codes que j'ai ajouté cela enregistre bien les nouveaux éléments mais lorsque je souhaite rajouter d'autres info il m'enlève ce qui a été déjà ajouté dans lla(en gros ça ne se met pas à la suite de la liste mais supprime ce qui a été précédemment tapé).

Voila mon code enfin mes codes parce que j'ai essayé plusieurs choses et ça fait la même chose:

'Copier le nouveau client vers la feuille liste des clients
Sub Copier_nouveau_client_vers_feuille_client()
Range("F20").Copy Destination:=Worksheets("Liste des clients").Range("B31")
Range("F22").Copy Destination:=Worksheets("Liste des clients").Range("C31")
Range("F24").Copy Destination:=Worksheets("Liste des clients").Range("D31")
Range("F26").Copy Destination:=Worksheets("Liste des clients").Range("E31")
End Sub

et l'autre

'Copier le nouveau client vers la feuille liste des clients
Sub Copier_nouveau_client_vers_feuille_client()
Application.EnableEvents = False
With Worksheets("Nouveau client")

.Range("F20").Copy Worksheets("Liste des clients").Range("B31")
.Range("F22").Copy Worksheets("Liste des clients").Range("C31")
.Range("F24").Copy Worksheets("Liste des clients").Range("D31")
.Range("F26").Copy Worksheets("Liste des clients").Range("E31")

End With
Application.EnableEvents = True
End Sub

Voila merci d'avance, j'espère juste une correction parce que je vais fo**** cet ordi à la poubelle !