Dim FicheChantier As Worksheet
Set FicheCh = ActiveWorkbook.Sheets("Fiche ch")
Dim DonnéesFC As Worksheet
Set DonnéesFC = ThisWorkbook.Sheets("Données fiches ch")
Dim m As Integer
m = 0
Dim Tableaulig
Tableaulig = Array(11, 13, 15, 16, 17)
Dim Tableaucol
Tableaucol = Array(4, 4, 4, 4, 5)
Dim TableauCheckbox
TableauCheckbox = Array(3, 4, 5, 6, 192, 177, 182, 181, 123)
' 3, 4, 5, 6, 192, 177, 182, 181 et 123 sont les numéros des checkboxes dont je veux récupérer la valeur
For m = 4 To 8
If FicheCh.CheckBoxes(TableauCheckbox(m)).Value = 1 Then
DonnéesFC.Cells(l, j) = "Oui"
j = j + 1
DonnéesFC.Cells(l, j) = FicheCh.Cells(Tableaulig(k), Tableaucol(k))
Else
DonnéesFC.Cells(l, j) = "Non"
j = j + 2
End If
k = k + 1
Next m