Private Sub CommandButton1_Click()
Dim i&, n&
n = 0
For i = 1 To 4: n = n + IIf(Controls("TextBox" & i).Value <> "", 1, 0): Next i
If n <> 4 Then
MsgBox "Toutes les champs de la ligne 1 doivent être renseignés !", vbCritical
Exit Sub
Else
n = 0
For i = 5 To 8: n = n + IIf(Controls("TextBox" & i).Value <> "", 1, 0): Next i
If n > 0 And n < 4 Then
MsgBox "Les champs de la ligne 2 doivent être tous renseignés ou tous vides!", vbCritical
Exit Sub
Else
n = 0
For i = 9 To 12: n = n + IIf(Controls("TextBox" & i).Value <> "", 1, 0): Next i
If n > 0 And n < 4 Then
MsgBox "Les champs de la ligne 3 doivent être tous renseignés ou tous vides!", vbCritical
Exit Sub
End If
End If
End If
MsgBox "coucou"
End Sub