Sub CréerCase()
Dim Cellule As Range
Dim wsResult As Object
Set wsResult = Worksheets("Feuil1")
dercol = Cells(2, Cells.Columns.Count).End(xlToLeft).Offset(0, 0).Column
With wsResult.Range("C2:C" & dercol)
For Each Cellule In Cells(25 + i, 1)
For i = 3 To dercol
With Cellule
ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height).Select
End With
With Selection
'.LinkedCell = Cellule.Offset(0, 1).Address
.Characters.Text = Cells(2, i).Value
End With
Next i
Next Cellule
End With
End Sub