Probleme incrementation d un formulaire

bonjour

j ai un bouton pour mon formulaire dans l onglet "fichier client"

cela me met les info sur la ligne 3 et enregistre et m insert une ligne avant la 3

mon problème

je voudrais que mes clients s empilent les un après les autre mais je ne sait pas faire

donc en résumé/ client 1 en ligne 3

client 2 en ligne 4

client 3 en ligne 5 ETC

seul les case "nom"prenom"adresse" et le bouton "enregistrer et quitter " marchent je ferai les autre apres

merci d avance

Bonsoir

remplaces la macro équivalente par celle-ci (module de l'userform1

Private Sub CommandButton1_Click()
  If Trim(Range("A3")) = "" Then
    MsgBox "Le nom est obligatoire"
    Exit Sub
  End If

  Range("N3") = Application.CountA(Columns("A")) - 1
  Rows(3).Insert
  Range("A4:N" & Range("A" & Rows.Count).Row).Sort key1:=Range("N4"), order1:=xlAscending, dataoption1:=xlSortNormal, Header:=xlNo
  Unload UserForm1

End Sub

merci

super cool