Re : comment faire ????
je crois que j ai trouver voila ce que j ai fait :
Sub Saisi()
Dim Retour As String
Retour = InputBox("? ", "Information", "", 100, 100)
Range("A65536").End(xlUp).Offset(1, 0) = Retour
End Sub
voila il reste plus qu a changer la forme !!!
merci a ceux qui ont pris le temps de chercher