erreur 1004 : sélection échouée

Bonjour à tous et à toutes,

J'ai un problème dans une procédure qui est censée sélectionner et colorier
le fond des cellules dont la valeur est "PARTIES COMMUNES". Ces cellules sont
dans la colonnes B de la feuille "ElecBordereau".

Ce que je veux, c'est que lorsque l'utilisateur clique sur CommandButton de
mon userform, cette procédure se mette en place.

J'ai déjà écrit ses mêmes lignes de programmation pour une autre feuille
"Bordereau" et un autre userform dans le même programme Excel. Ca marche très
bien.

Mais pour ce userform, ca ne marche pas (erreur 1004: la méthode select de
la classe range a échoué). Quelqu'un peut-il m'aider? Pourquoi dans un même
programme, la même procédure fonctionne une fois sur deux?

Merci d'avance à tous ceux qui peuvent m'aider.

Je joins le code de cette procédure et je précise que je suis débutant.

For Each w In Sheets("ElecBordereau").Range("B8:B120")
If w.Value = "PARTIES COMMUNES" Then
w.Select

With Selection.Interior
.ColorIndex = 37
.Pattern = xlSolid
End With

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
End If
Next w