Dim i As Integer, j As Integer
Dim Obj As OLEObject
i = Feuil1.Range('D65536').End(xlUp).Row
For j = 2 To i
Set Obj = Feuil1.OLEObjects.Add('Forms.CheckBox.1')
With Obj
.Left = Feuil1.Cells(j + 1, 10).Left
.Top = Feuil1.Cells(j + 1, 10).Top
.Width = Feuil1.Cells(j + 1, 10).Width
.Height = Feuil1.Cells(j + 1, 10).Height
.Object.Caption = 'L' & j - 1
.LinkedCell = [B][U]Feuil2[/U][/B].Cells(j, 5).Address
End With
Next j