Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
'Si plusieurs cellules ont été modifiées, sortir de la procédure
If Target.Count > 1 Then Exit Sub
'Si la cellule modifiée appartient à la plage T6:T29, alors
If Not Application.Intersect(Target, Range("T6:T29")) Is Nothing Then
'Dans la plage A6:P10, chercher la cellule qui a la même valeur que la cellule modifiée
Set C = Range("A6:P10").Find(Target.Offset(, -1), , xlValues, xlWhole)
'Si cette cellule existe
If Not C Is Nothing Then
'appliquer la couleur de fond associée au texte de la cellule modifiée
Select Case Target.Value
Case "Dispo"
C.Interior.ColorIndex = -4142
Case "Signalée"
C.Interior.ColorIndex = 43 ' vert
Case "Rentrante"
C.Interior.ColorIndex = 23 ' bleu
Case "Immo"
C.Interior.ColorIndex = 3 ' rouge
Case Else
C.Interior.ColorIndex = -4142
End Select
End If
End If
End Sub