Erreur Selection de cellules

Salut !

Option Explicit

Sub GenererScrabble()
    Workbooks("Scrabble.xlsm").Sheets("Scrabble").Select
    Cells.Clear

    Columns("A:AI").ColumnWidth = 3.86
    Rows("1:20").RowHeight = 24

        ' Quadrillage
    With Range("C5:Q19")
        .Interior.Color = 13434828
        .Borders(xlInsideVertical).LineStyle = xlContinuous
        .Borders(xlInsideHorizontal).LineStyle = xlContinuous
        .BorderAround xlContinuous, xlMedium
    End With

    Range("c5,j5,q5").Interior.ColorIndex = 3
        'Couleur cases mot compte triple
    Range("C5,J5,Q5,C12,Q12,C19,J19,Q19").Interior.ColorIndex = 3

        'Couleur cases lettre compte double
    Range("F5,N5,I7,K7,C8,J8,Q8,E11,I11,O11,F12,N12,E13,I13,K13,O13,C16,J16,Q16,I17,K17,F19,O19").Interior.Color = RGB(51, 204, 204)
End Sub

J'ai pu faire fonctionné ce code 2/3 fois et maintenant j'ai un problème concernant les range() avec une erreur 1004 qui se retire lorsque je sélectionne plusieurs cellules, si je n'en met plus qu'une par range(), je n'ai plus d'erreur...

Comment faire ?

Merci d'avance pour les réponse !

Njr,

pas d'erreur pour moi, sauf qu'il doit manquer une case centrale coloriée !

Steelson a écrit :

Njr,

pas d'erreur pour moi, sauf qu'il doit manquer une case centrale coloriée !

Est-ce qu'il est possible que ce soit des erreurs définie directement sur mon logiciel excel ? Si oui, comment les retirer ?