Re le forum
Air_2 il faudrait aussi enlever la couleur si le "X" n'est plus là et vérifier que c'est la colonne D.
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column <> 4 Then Exit Sub
If UCase(.Value) = "X" Then
Range(Cells(.Row, 1), Cells(.Row, 2)).Interior.ColorIndex = 35
Else
Range(Cells(.Row, 1), Cells(.Row, 2)).Interior.ColorIndex = xlNone
End If
End With
End Sub
Mytå