Bonjour,
voici le même fichier mais dont le code est modifié pour te convenir....
Note : dans le code, j'ai utilisé pour me déplacer des Activecell.Offset(0,n), n étant le nombre de colonnes mais il vaut mieux nommer chaque colonne et utiliser une formule VBA du type :
Intersect(activecell.entirerow,range("NomEleveur")).value=AjoutéEleveur.textbox1.value
Voilà, à ta disposition pour plus d'informations !
Clément
"S'il n'y a pas de solution, c'est qu'il n'y a pas de problème." (devise Shadock)