Private Sub CommandButton1_Click()
Dim L As Integer 'Déclaration de variable "L" pour connaitre la Ligne Numéro
'ici je repère la dernière ligne vide pour la Collections des données
[B][COLOR=blue]L[/COLOR][/B] = Sheets("saisie").Range("a65536").End(xlUp).Row + 1
'Pour voir se qui se passe je bascule sur la feuille "saisie"
Sheets("saisie").Activate
'Ici c'est le report de la saisie dans la feuille
With Sheets("saisie")
Range("B"[B][COLOR=blue] & L[/COLOR][/B]).Value = TextBox2.Value
' Etc ...