Sub Checkbox()
Dim i
With Feuil1
For Each i In .CheckBoxes: i.Delete: Next
m = Application.WorksheetFunction.CountA(Feuil1.Range("$B:$B"))
For i = 2 To m
With .CheckBoxes.Add(Range("K" & i).Left, _
Range("K" & i).Top, Range("C" & i).Width, Range("C" & i).Height)
.Caption = ""
.Name = "box" & i
.OnAction = "es"
End With
Next i
End With
End Sub
Sub es()
Dim i As Checkbox
For Each i In Feuil1.CheckBoxes
Rows(Right(i.Name, Len(i.Name) - 3)).Interior.ColorIndex = IIf(i.Value = xlOn, 3, xlNone)
Next
End Sub