Sub Auto_Open()
Dim i As Integer
Dim j As Integer
Application.ScreenUpdating = False
Sheets("sommaire 1").Select
Sheets("Feuil1").Select
For i = 5 To 13
If Cells(i, 2) = Date + 10 Then
MsgBox ("Dans 10 jours, Véhicule " & Cells(i, 1))
Else
Cells(i + 1, 2).Select
End If
Next i
For j = 5 To 13
If Cells(j, 3) = Date + 10 Then
MsgBox ("Dans 10 jours, Véhicule " & Cells(j, 1))
Else
Cells(j + 1, 3).Select
End If
Next j
Sheets("sommaire 1").Select
Application.ScreenUpdating = True
End Sub