If Me.Controls("ComboBox" & i).Value =""
For i = 1 to 10
If Me.Controls("ComboBox" & i).Value = "" Then
.../...
End If
Next i
Dim j As Control
For Each j In Controls
If TypeOf j Is MSForms.ComboBox And j = "" Then MsgBox j.Name & " vide"
Next