Merci Celeda pour ta réponse mais il faut pas que j'utilise de userform.
Donc j'ai ajouté un boutton "Enregistrer" dans ma feuille de saisie et j'ai pris le code source de l'exemple de Romfret mais ca ne fonctionne pas, il me dit "Object Required" :-(
UserForm de Romfret :
Private Sub CommandButton1_Click()
Range("A65536").End(xlUp).Cells(2, 1) = TextBox1
Range("B65536").End(xlUp).Cells(2, 1) = TextBox2
Range("C65536").End(xlUp).Cells(2, 1) = TextBox3
Range("D65536").End(xlUp).Cells(2, 1) = TextBox4
End Sub
Source de mon bouton "Enregistrer" :
Private Sub SaveButton_Click()
Range("A65536").End(xlUp).Cells(2, 1) = Feuil1!D10
Range("B65536").End(xlUp).Cells(2, 1) = Feuil1!D4
Range("C65536").End(xlUp).Cells(2, 1) = Feuil1!D8
End Sub