Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Select Case Target
Case "Forte"
Target.Interior.ColorIndex = 3
Case "Moyenne"
Target.Interior.ColorIndex = 44
Case "Faible"
Target.Interior.ColorIndex = 6
End Select
End If
End Sub