Private Sub CommandButton1_Click() Dim L As Long 'Déclaration de variable "L" pour connaitre la Ligne Numéro
'Pour voir se qui se passe je bascule sur la feuille "Collection"
'Sheets("Extincteurs").Activate
' Ici c'est le report de la saisie dans la feuille
With Sheets("Extincteurs")
' Ici je repère la dernière ligne vide pour la Collections des données
L = .Range("A" & Rows.Count).End(xlUp).Row + 1
' Ici, j'inscrit les valeurs
For i = 1 To 11
If Controls("TextBox" & i) <> "" Then .Cells(L, i).Value = Controls("TextBox" & i).Value
Next
End With
'Ici je vide les TextBox
For i = 1 To 11
Controls("TextBox" & i) = ""
Next
'ici je remets le curseur en textbox1
TextBox1.SetFocus
End Sub