Sub ajout()
Dim t, l, i
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=80, Top:=80, Width:=10, Height:=10 _
).Select
i = 1
Do While Cells(i, 1).Value <> ""
Workbooks("classeur1").Activate
Sheets(1).Activate
Cells(i, 5).Select
t = ActiveCell.Top
l = ActiveCell.Left
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=l + 2, Top:=t + 2, Width:=10, Height:=10 _
).Select
i = i + 1
Loop
End Sub