[Résolu]je ne vois pas l'erreur mais je la constate: probleme de commandbuton

Private Sub InitializeBleu()
Dim L As Integer, C As Integer
For L = 1 To 14: For C = 1 To 15
    If CommandButtonX(((L - 1) * 15) + C).GroupBoutonUfAjoutSalle.BackColor = &HFFFF00 Then
       Bleu(L, C) = True
    Else
       Bleu(L, C) = False
    End If
Next: Next
affichebleudansfenetrexecut
End Sub

Private Sub CréerPlacesDansSalle()
Sheets("Feuil1").Select   'ou activate ??? quelle différence?
ActiveSheet.Range("A1:Q17").Select   'pour le coloriage en violet
With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 16751052
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With
P = 0
For L = 1 To 14: For C = 1 To 15
    If Bleu(L, C) = True Then 'pour le coloriage en bleu des cellules "places"
       ActiveSheet.Cells(L + 1, C + 1).Select
       With Selection.Interior
           .Pattern = xlSolid
           .PatternColorIndex = xlAutomatic
           .Color = 13434828
           .TintAndShade = 0
           .PatternTintAndShade = 0
       End With
       P = P + 1  'p défini le numéro de place pour le collage des formules
       'Selection.Formula = "=IF(LeGroupe<0,INDEX(PrénCls,MATCH(" & p & ",Places,0)),INDEX(PrénAbsolus,MATCH(" & p & ",PlacesAbsolues,0)))"
    End If
Next: Next
' à faire:
'supprime les colonnes de droite et gauche qui sont vides ainsi que les lignes du haut et du bas
'Nomme la plage "PlanSalle" dans le gestionnaire de noms
'Ajuste la largeur et la hauteur des col et lignes
End Sub