Private Sub CommandButton1_Click()
Dim Ctrl As MSForms.Control 'Tout les controles du userform
Dim L As Integer 'Variable pour connaitre le numéro de derniere ligne vide
Dim Response As Byte
Dim Match As Byte
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then
If Ctrl = "" Then MsgBox "Donnée Incomplete dans la " & Ctrl.Name, vbCritical, T: Ctrl.SetFocus: Exit Sub
Else
End If
Next Ctrl
End Sub