Sub Macro1()
Dim wS As Worksheet
Dim y As Long
Dim width1!, height1!
Dim rowHeight#, colWidth#
Set wS = Sheets("Feuil1")
rowHeight = wS.Rows(1).rowHeight
colWidth = 60 ' Points
width1 = 10
height1 = 10
' De la ligne 5 à la 600
For y = 5 To 600
wS.CheckBoxes.Add(colWidth * 2, rowHeight * (y - 1), width1, height1).Select
With Selection
.Value = xlOff
.LinkedCell = "$D$" & Trim(Str(y))
.Display3DShading = True
End With
wS.CheckBoxes.Add(colWidth * 4, rowHeight * (y - 1), width1, height1).Select
With Selection
.Value = xlOff
.LinkedCell = "$F$" & Trim(Str(y))
.Display3DShading = True
End With
Next y
End Sub
Proposition. Quand tu auras vu le temps qu'il met, tu colleras un Application.ScreenUpdating = False en début de boucle et un Application.ScreenUpdating = True en sortie de boucle.