bonjour tonton & Jean-Marie
Jean-Marie,
dans la ligne:
L = Worksheets("Feuil1").Range("A1").End(xlUp).Row + 1
ne vaudrait-il pas mieux mettre
L = Range("A65536").End(xlUp).Row + 1
nota: worksheet est implicite puisqu'on est dans un module feuille
On aurait donc pour tonton le listing
option explicit
Private Sub CommandButton1_Click()
dim L as long
L = Range("A65536").End(xlUp).Row + 1
Range("A" & L) = texbox1.Value
end sub
Amicalement
Michel