[-RESOLUTO-]Simplifier le code d'un USF

If TextBox1.Value = "" Then
     Label9.Visible = True
     Exit Sub
    End If
If TextBox2.Value = "" Then
     Label11.Visible = True
     Exit Sub
    End If
 If TextBox4.Value = "" Then
     Label12.Visible = True
     Exit Sub
    End If
If TextBox3.Value = "" Then
     Label13.Visible = True
     Exit Sub
    End If
If TextBox5.Value = "" Then
     Label14.Visible = True
     Exit Sub
    End If

Private Sub CommandButton1_Click() 'bouton de commande de validation de l'UserForm
 Dim ctrl As Control 'déclare la variable ctrl
 For Each ctrl In Me.Controls 'boucle sur tous les contrôles de l'userform
     If TypeOf ctrl Is MSForms.TextBox And ctrl.Value = "" Then 'condition : si le type de contôle est une Textbox et si elle est vide
         ctrl.SetFocus 'place le curserur dans la Textbox
         MsgBox "Vous devez éditer ce champs !" 'message
     End If 'fin de la condition
 Next ctrl 'prochain contrôle de l'userform
 End Sub

 If TypeOf ctrl Is MSForms.TextBox And ctrl.Value = "" Then 'condition : si le type de contôle est une Textbox et si elle est vide