Couleur automatique VB excel

Bonjour à tous,

Je travail sur un document excel qui comprend plusieurs feuilles.
Dans chacune de ces feuilles, la colonne "D" indique une severité.

Mon problème est le suivant. Je souhaite que les lignes pour lesquelles la criticité = Critical apparaîssent en rouge, et celle = Majeur en orange. La mise en forme automatique ne fonctionne que sur une cellule et j'aimerai que ce soit la ligne entière qui soit coloriée.

J'ai tenté de reprendre, en vain, un exemple trouvé sur le forum :

---------------------------------------
Private Sub Worksheet_Change(ByVal sel As Range)
Select Case Cells(sel.Row, "D").Value
Case "Critical"
Rows(sel.Row).Interior.ColorIndex = 3
Rows(sel.Row).Font.ColorIndex = 1
Case "Major"
Rows(sel.Row).Interior.ColorIndex = 46
Rows(sel.Row).Font.ColorIndex = 1
End Select
End Sub
----------------------------------------

J'ouvre le Visual Basic (ctrl + 11) et colle le code mais quand j'appuie sur exécuter une fenêtre avec nom de la macro s'ouvre.

Je suis vraiment novice sur excel et le vb.

Par avance merci pour vos réponses.