Remplir une cellule en rouge

Bonjour

J'aimerai que lorsque je sélectionne une cellule en colonne "S", la cellule de la colonne "T" correspondante se remplisse de rouge.

J'ai un code pour sélectionner les cellule "S"qui fonctionne très bien.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Row < 6 Or Target.Column <> 19 Or Target.Count <> 1 Then Exit Sub
Target.Value = IIf(Target.Value = "", "ü", "")

End Sub

Et j'ai mis se code en mise en forme conditionnelle

=S6:S100>0

Mais j'aimerai l'avoir en VBA si possible

Un fichier valant mieux qu'un long discours, veuillez voir la pièce jointe.

Par avance merci pour votre aide.

Cordialement

Max

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 And Target.Row > 6 And Target.Column = 19 Then
        If Target.Value = "" Then
            Target.Value = "ü"
            Target.Offset(0, 1).Interior.ColorIndex = 3
        Else
            Target.Value = ""
            Target.Offset(0, 1).Interior.ColorIndex = -4142
        End If
    End If
End Sub

A+

Bonjour Frangy,

Nickel Exactement la demande.

Bonne journée

Max