Sub ListeFeuilles()
cpt = Me.Shapes.Count
For s = 1 To Sheets.Count
If Sheets(s).Name <> "Accueil" Then
Me.Shapes.AddFormControl Type:=xlCheckBox, Left:=2, Top:=lig * 30, Width:=60, Height:=24
cpt = cpt + 1
lig = lig + 1
Me.Shapes(cpt).DrawingObject.Caption = Sheets(s).Name
End If
Next s
End Sub