Erreur 1004 methode 'range' de l'objet _global a echoué

Bonjour,

J'ai une lélection multiple par Range qui fonctionnait depuis 2 mois, et après avoir juste réorganisé mon UserForm, Elle génère l'erreur 1004, qui me semble assez mystérieuse...

voici mon code:

'Titres: fond vert + écriture blanche + gras
With (Range("A1, D1, J1, J2"))
    .Interior.Color = RGB(0, 176, 80)
    .Font.Color = RGB(255, 255, 255)
    .Font.Bold = True
End With

Je n'arrive vraiement pas à comprendre ce qu'il ne va pas..

Pour précision, j'ai testé le code seul dans un fichier vierge, et il fonctionne très bien hm....

Bonjour,

Une proposition ?

With Worksheets("A définir").Range("A1, D1, J1, J2")
    .Interior.Color = RGB(0, 176, 80)
    .Font.Color = RGB(255, 255, 255)
    .Font.Bold = True
End With

J'avais effectivement essayé, mais cela me génère une autre erreur:

Re,
Essaie ainsi !
Cdlt.

With ActiveWorkbook.Worksheets("A définir").Range("A1, D1, J1, J2")
    .Interior.Color = RGB(0, 176, 80)
    .Font.Color = RGB(255, 255, 255)
    .Font.Bold = True
End With

Malheureusement, ça ne marche pas: la même erreur est générée...

Merci pour ton temps !

----------------------

Update: après essais, les range() sur lesquels il blqoue, c'est quand il y a plusieurs cellules type range("A1,D1,J1,J2").

alors que du type range("F1"), il veut bien les prendre...

Ce qui me questionne c'est pourquoi la semaine dernière, ces range fonctionnaient très bien ...