Selectionner 4 cellules

Bonjour,

J'ai créé cette macro qui a pour but de trouver un mot dans une plage de cellules et la mettre en couleur.

Sub Macro3()

Dim myRange As Range

Dim cell As Range

Range("A11", [A11].End(xlDown)).Select

For Each cell In Selection

'If cell.Value = "TOTAL" Then cell.Interior.ColorIndex = 6 'Si la valeur = F alors

Next cell

End Sub

Je voudrais si et quand cette cellule est trouvée que la macro mette les 3 cellules suivantes à droite en couleur aussi?

Merci pour votre aide

Bonjour,

If cell.Value = "TOTAL" Then cell.Resize(, 3).Interior.ColorIndex = 6

A+

galopin01 a écrit :
Bonjour,
If cell.Value = "TOTAL" Then cell.Resize(, 3).Interior.ColorIndex = 6
A+

Merci beaucoup beaucoup beaucoup ))))