Voila le bout de code qui va bien, il recherche la dernière ligne de la colonne A avec du texte, ajoute + 1 pour prendre la cellule en dessous et colle la valeur de la userform
------------------------------------------
Dim L As Integer
L = feuil1.Range("A1").End(xlDown).Row 'Changer si pas feuil1 !
L=L+1
Range("A" & L).Value = nomdelauserform.nomducontrole.value 'remplacer par le nom de la userfom et le nom du control
------------------------------------------
++
Creepy