Hello,
Voila pour toi, je te laisse avancer avec ça :
Depuis un bouton sur ton formulaire
Private Sub CommandButton1_Click()
Call Red_Blank(Formulaire)
End Sub
Sub Red_Blank(form As UserForm)
Dim ctl As Control
With form
For Each ctl In .Controls
If ctl.Name <> "ListeRechercheNom" Then
If TypeOf ctl Is MSForms.TextBox Or TypeOf ctl Is MSForms.ComboBox Then
If ctl.Text = "" Then ctl.BackColor = vbRed
End If
End If
Next ctl
End With
End Sub