Bonjour
Rien de compliqué
On ajoute les données dans la 1ère ligne libre que l'on obtient par
Ligne = feuille.Range("B" & Rows.Count).End(xlUp).Row + 1
Le reste ne change pas
Ah vérification si la TextBox txtModele n'est pas vide, car il faut obligatoirement une donnée en colonne A, sinon on ne peut pas trouver la 1ère ligne vide