colorier une plage de cellule

[saradi]

bonjour tout le monde s' il vous plait j'ai essayer avec ce programme ms il n'a pas marché;
Sub WKDAY()
For i = 1 To 5
If Range("D8") = "WK i" Then
Range("WEEKi").Interior.Color = 255
End If
Next i
End Sub
si la cellule d8 contient par exemple WK 1 donc on colorie la plage de cellule nommée WEEK1 et si d8 contient par exemple WK 2 donc on colorie la plage de cellule nommée WEEK2 et ainsi de suite
merci d'avance

 

[chris]

Bonjour

If Range("D8") = "WK" & i Then
Range("WEEK" & i).Interior.Color = 255

 

[saradi]

merci Chris mais ça n'a pas marché

 

[chris]

RE
j'ai oublié l'espace

If Range("D8") = "WK " & i Then

 

[saradi]

Chris merci beaucoup