J'ai un tableau au travail et je voudrais que les lignes passent en jaune à chaque fois que la cellule de la colonne R est remplie avec une date ( n'importe quelle date).
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 18 Then Exit Sub
If VarType(Target.Value) = vbDate Then Target.EntireRow.Interior.Color = RGB(255, 255, 0)
End Sub