Obliger à remplir toutes les textbox d'un userform

If tbx_Date.Value = '' Then
    MsgBox 'il faut remplir'
    Exit Sub
End If

If tbx_Nom.Value = '' Then
    MsgBox 'il faut remplir'
    Exit Sub
End If

'Etc Etc Etc

Private Sub CommandButton1_Click()
Dim CTRL As Control
Dim ListEmpty As String

For Each CTRL In Me.Controls
    If TypeOf CTRL Is MSForms.TextBox Then
        If CTRL.Value = '' Then ListEmpty = ListEmpty & CTRL.Name & vbCrLf
    End If
Next

    If ListEmpty <> '' Then
        MsgBox 'Y pas bon, ces TextBox Sont Vides :' & vbCrLf & ListEmpty, vbCritical, '@+Thierry's Démo'
        Exit Sub
    Else
        MsgBox 'Ici le reste de la Procédure du CommandButton'
    End If

End Sub