cases à cocher probleme sur le resultat

.LinkedCell = Feuil1.Cells(b - Elec, 2).Address 'lien oui non B pour la ligne et 2 pour la colonne

Cliquez pour agrandir...

.LinkedCell = 'electricite!' & Feuil1.Cells(b - Elec + 1, 2).Address 'lien oui non B pour la ligne et 2 pour la colonne

Cliquez pour agrandir...

Sub Macro2()
Dim ws As Worksheet 'déclare la variable ws
Dim elec As Long 'déclare la variable elec
Dim fin As Long 'déclare la variable fin
Dim b As Long 'déclare la variable b
Dim Obj As OLEObject 'déclare la variable Obj

Set ws = ActiveSheet 'définit la variable ws

With Sheets('electricite')
elec = .Range('C65536').End(xlUp).Row 'définit la variable elec
End With

ws.Select
fin = Range('c65536').End(xlUp).Row 'définit la variable fin

'création des CheckBoxes
For b = (elec + 1) To (elec + fin) 'boucle (je n'ai pas vraiment compris là...)
Set Obj = ws.OLEObjects.Add('Forms.CheckBox.1') 'définit la variable Obj

'placement et propriété de la CheckBox
With Obj
.Left = ws.Cells((b - elec), 10).Left '(b-elec) pour la ligne et 10 pour la colonne
.Top = ws.Cells((b - elec), 10).Top
.Width = ws.Cells((b - elec), 10).Width
.Height = ws.Cells((b - elec), 10).Height
.Object.Caption = 'B' & b - elect 'titre du bouton
.LinkedCell = 'electricite!' & Feuil1.Cells(b - elec + 1, 2).Address 'lien oui non B pour la ligne et 2 pour la colonne
End With

Next b

End Sub

Cliquez pour agrandir...