Merci pour ta réponse mais cela ne fonctionne pas voici mon code avec une heure test.
Sub Minuit()
Application.OnTime
TimeValue ("08:22:00"), shtMainCourante.Range("A2,H2,C7:F8,A10,B16,A18:I51") = ""
shtMainCourante.Range("B16") = shtMainCourante.Range("B16").Value + 1
End Sub
8:22 étant l'heure que j'ai mis pour tester.