Bonsoir
Il y a plusieurs solutions, une qui me vient à l'esprit serait de faire écrire la date du jour et de pointer dessus à chaque lancement de cette macro...
Sub MacroOneTimeAday()
Dim TheDay As Date
TheDay = Format(Now, "DD/MM/YYYY")
If TheDay = Sheets("Spy").Range("a1") Then
MsgBox "La macro a déjà tournée"
Exit Sub
Else
Sheets("Spy").Range("a1") = TheDay
MsgBox "La macro peut tourner"
End If
End Sub
Bien sûr la feuille "Spy" peut être uyne feuille cachée.
Bonne Soirée
@+Thierry