Bonjour,
Une alternative (je n'ai pas regardé le reste du code) :
Dim RECH As Object
For i = 1 To 12
Me.Controls("CheckBox" & i).Value = False
Set RECH = Cells(W, 10).Find(Me.Controls("CheckBox" & i).Caption, lookat:=xlPart)
If Not RECH Is Nothing Then Me.Controls("CheckBox" & i).Value = True
Next i
Cdlt,