Aide pour modifier formule

Bonjour,

J'utilise cette macro pour colorier mes cellules en fonction du nom inscrit.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B5:B900]) Is Nothing And Target.Count = 1 Then
Select Case (Target.Value)
Case "Poussin"
Target.Interior.ColorIndex = 38
Case "Benjamin"
Target.Interior.ColorIndex = 4
Case "Minime"
Target.Interior.ColorIndex = 6
Case "Cadet"
Target.Interior.ColorIndex = 24
Case "Junior"
Target.Interior.ColorIndex = 8
Case "Senior Région 1"
Target.Interior.ColorIndex = 19
Case "Senior Région 2"
Target.Interior.ColorIndex = 3
Case "Senior N 3"
Target.Interior.ColorIndex = 36
Case Else
Target.Interior.ColorIndex = xlNone
End Select
End If
End Sub

Maintenant je souhaite la modifiée pour que mes cellules vides soient hachurées.

Je vous remercie de votre aide.

Pascal