Salut,
Voici une proposition à insérer dans la feuille "Formulaire à remplir" à la place de l'existant
Private Sub CommandButton2_Click()
Dim Obj As OLEObject
Dim NbCellRemplies%, i%, NumLigne%
For Each Obj In ActiveSheet.OLEObjects
If TypeOf Obj.Object Is MSForms.CheckBox Then
NbCellRemplies = 0
NumLigne = Right(Obj.Name, Len(Obj.Name) - 8) + 4
For i = 2 To 7
If Cells(NumLigne, i) <> "" Then NbCellRemplies = NbCellRemplies + 1
Next i
If NbCellRemplies = 6 Then Obj.Object.Value = True
End If
Next Obj
End Sub
Jers