Sub alert()
v_date_derniere_exe = Sheets("Feuil1").Range("A1").Value
If Format(Now, "dd/mm/yyyy") = Format(v_date_derniere_exe, "dd/mm/yyyy") Then
If MsgBox("La macro a déjà été executée ce jour, souhaitez-vous la relancer ?", vbYesNo + vbalert) = vbYes Then
Call Inventaire_jour_a_inventaire_veille
Sheets("Feuil1").Range("A1").Value = Now()
Else
Exit Sub
End If
Else
Call Inventaire_jour_a_inventaire_veille
Sheets("Feuil1").Range("A1").Value = Now()
End If
End Sub