Formulaire VBA probleme retour à la ligne

Bonjour à tous,

Je suis étudiant en alternance et je dois créer un formulaire sur excel. Je n'ai jamais manipulé du code et j'ai tenté tant bien que mal à le réaliser via divers tuto sur youtube ou le net.

Seulement j'ai deux soucis dont un important :

J'ai crée differentes textbox et combobox à renseigner. La personne qui renseigne le formulaire doit ensuite cliquer sur "Nouveau contact" afin que les cellules correspondantes sur la fiche excel se remplissent. Le hic est que les données se reportent toujours sur la même ligne alors que je souhaite un retour à la ligne pour chaque nouveau contact.

J'ai beau chercher et regarder à nouveau les tuto qui m'ont aidé mais je ne trouve pas mon erreur d'où ma démarche sur le forum. Si une âme charitable peut m'aider je lui en serais très reconnaissant!

Ci-dessous le code VBA pour le bouton ajouter

Private Sub btnNouveaucontact_Click()

    Sheets("Clients").Activate
    Range("A1").Select
    Selection.End(xlUp).Select
    Selection.Offset(1, 0).Select
    ActiveCell = txtParent.Value
    ActiveCell.Offset(0, 1).Value = txtNomclient
    ActiveCell.Offset(0, 2).Value = txtIdclient
    ActiveCell.Offset(0, 3).Value = txtCdsi
    ActiveCell.Offset(0, 4).Value = txtTdsi
    ActiveCell.Offset(0, 5).Value = txtMdsi
    ActiveCell.Offset(0, 6).Value = cboNdcdsi
    ActiveCell.Offset(0, 7).Value = cboQrdsi
    ActiveCell.Offset(0, 8).Value = txtCdaf
    ActiveCell.Offset(0, 9).Value = txtTdaf
    ActiveCell.Offset(0, 10).Value = txtMdaf
    ActiveCell.Offset(0, 11).Value = cboNdcdaf
    ActiveCell.Offset(0, 12).Value = cboQrdaf
    ActiveCell.Offset(0, 13).Value = txtCdircomptable
    ActiveCell.Offset(0, 14).Value = txtTdircomptable
    ActiveCell.Offset(0, 15).Value = txtMdircomptable
    ActiveCell.Offset(0, 16).Value = cboNdcdircomptable
    ActiveCell.Offset(0, 17).Value = cboQrdircomptable
    ActiveCell.Offset(0, 18).Value = txtCachat
    ActiveCell.Offset(0, 19).Value = txtTachat
    ActiveCell.Offset(0, 20).Value = txtMachat
    ActiveCell.Offset(0, 21).Value = cboNdcachat
    ActiveCell.Offset(0, 22).Value = cboQrachat
    ActiveCell.Offset(0, 23).Value = txtCarchitecte
    ActiveCell.Offset(0, 24).Value = txtTarchitecte
    ActiveCell.Offset(0, 25).Value = txtMarchitecte
    ActiveCell.Offset(0, 26).Value = cboNdcarchitecte
    ActiveCell.Offset(0, 27).Value = cboQrarchitecte
    ActiveCell.Offset(0, 28).Value = txtCrespetudes
    ActiveCell.Offset(0, 29).Value = txtTrespetudes
    ActiveCell.Offset(0, 30).Value = txtMrespetudes
    ActiveCell.Offset(0, 31).Value = cboNdcrespetudes
    ActiveCell.Offset(0, 32).Value = cboQrrespetudes
    ActiveCell.Offset(0, 33).Value = txtCrespproduction
    ActiveCell.Offset(0, 34).Value = txtTrespproduction
    ActiveCell.Offset(0, 35).Value = txtMrespproduction
    ActiveCell.Offset(0, 36).Value = cboNdcrespproduction
    ActiveCell.Offset(0, 37).Value = cboQrrespproduction
    ActiveCell.Offset(0, 38).Value = txtCcdo
    ActiveCell.Offset(0, 39).Value = txtTcdo
    ActiveCell.Offset(0, 40).Value = txtMcdo
    ActiveCell.Offset(0, 41).Value = cboNdccdo
    ActiveCell.Offset(0, 42).Value = cboQrcdo
    ActiveCell.Offset(0, 43).Value = txtStrategie
    ActiveCell.Offset(0, 44).Value = txtAmbitions

End Sub

Mon deuxième problème (qui est secondaire, si je ne trouve pas cela ne changera vraiment le formulaire mais je trouve que cela apporte un plus) est que je n'arrive pas à trouver de code pour modifier les contacts existants. J'aimerais que la personne qui renseigne puisse taper le nom du client > que les informations du client apparaissent alors sur le formulaire > qu'il puissent les changer> et enfin cliquer sur un bouton "modifier" pour mettre à jour la ligne.

Je vous remercie par avance de votre aide et je vous souhaite une bonne fin d'après midi.

Bonjour,

Un petit exemple à mettre à ta sauce

Bonsoir M12,

Merci de ta réponse je vais essayer avec ton fichier!

Bonne soirée à toi