Private Sub UsFValid_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
L = Sheets("Extincteurs").Range("Extincteurs!B65536").End(xlUp).Row + 1
'ici un Test exemple pour la TextBox1, si elle est vide on est viré !!!
If TextBox14 = "" Then
MsgBox "Vous n'avez rien saisi dans la case Date !"
TextBox14.SetFocus
Exit Sub
End If
'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")
For i = 1 To 13
If Controls("TextBox" & i) <> "" Then .Cells(L, i + 2).Value = Val(Controls("TextBox" & i).Value)
Next
.Range("B" & L).Value = TextBox14.Value
End With
'Ici je vide les TextBox
For i = 1 To 14
Controls("TextBox" & i) = ""
Next
'ici je remets le curseur en textbox1
TextBox1.SetFocus
End Sub