Private Sub Workbook_Open()
Sub color()
Dim Cell As Range
For Each Cell In Sheets("Feuil1").Range("A2" & ":A" & Range("A65536").End(xlUp).Row)
If CLng(Cell.Offset(0, 1)) - 60 < CLng(Date) Then
If Cell.Interior.ColorIndex = 3 Then
GoTo 1
Else
Cell.Offset(0, 1).Interior.ColorIndex = 3 ' Si tu veux aussi la cellule avec la date en rouge
MsgBox " Le véhicule : " & Cell & " devra passer en révision le : " & CDate(Cell.Offset(0, 1))
Cell.Interior.ColorIndex = 3
Cell.Offset(0, 1).Interior.ColorIndex = 3 ' Si tu veux aussi la cellule avec la date en rouge
If CLng(Cell.Offset(0, 1)) - 60 > CLng(Date) Then
Cell.Interior.ColorIndex = xlNone
Cell.Offset(0, 1).Interior.ColorIndex = xlNone ' Et ça
Exit Sub
End If
End If
End If
1: Next
End Sub