Echec méthode range

Bonjour,

Message d'erreur :
"La méthode Range de l'objet _worksheet a échoué"

Code:

---

1 2 3 4 5 6 7

' Dans déclarations Dim vBlanc1 As Range ' Dans procédure MiseEnPage Set vBlanc1 = vWstImpression.Range("E23" & ":H" & vSautPage) 'Dans procédure Print color, ligne qui provoque l'erreur, ("Vblanc1" génère la même erreur) vWstImpression.Range(vBlanc1).Font.ColorIndex = coul1

---

Si quelqu'un peut mettre le doigt sur mon erreur : merci d'avance.
Cordialement
Daniel

Bonjour
vBlanc est déjà un Range
Utilise dans ta ligne 7 juste ceci

Code:

---

vBlanc1.Font.ColorIndex = coul1

---

Merci beaucoup !
Je ne comprends pas, l'après midi c'est toujours plus compliqué que le matin...