Dim Ctrl As Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then
If Ctrl.Object.Value < 1 Or Ctrl.Object.Value > 5 Then
MsgBox "Erreur de saisie pour" & " " & Ctrl.Name, vbCritical
Ctrl.SetFocus
Exit Sub
End If
End If
Next Ctrl