Sub AjoutChkBox()
Dim I As Long
Dim T As Long, L As Integer, W As Integer, H As Integer
T = ActiveSheet.Rows('1:1').Height - 1
L = 20
W = 10
H = 10
For I = 2 To Range('B2').End(xlDown).Row
ActiveSheet.CheckBoxes.Add(L, T, W, H).Select
With Selection
.Characters.Text = ''
.OnAction = 'Recopie'
.Value = xlOff
.LinkedCell = '$A$' & I
.Display3DShading = True
End With
Range('A' & I).Font.ColorIndex = 2
T = T + ActiveSheet.Rows(I & ':' & I).Height
Next I
End Sub