Private Sub CommandButton1_Click() Dim Ctl As Control
' Pour chaque control de l'UsF
For Each Ctl In Me.Controls
' Si le control n'est pas un Label
If InStr(1, Ctl.Name, "Label", vbTextCompare) = 0 Then
' Vérifier que le control n'est pa svide
If Ctl.Value = "" Then
Ctl.SetFocus
MsgBox "Merci de mettre/choisir une valeur"
Exit Sub
End If
End If
Next Ctl
Unload UserForm1
End Sub