@+Thierry

Bonsoir à tous et toutes

Salut Vériland
pour la madame émue.... tu lui colles çà dans le private module ThisWorkbook...

Private Sub Workbook_Open()
Dim Jour As Date
Jour = Now
Sheets(1).Range("a1") = Day(Jour)
End Sub

@+Thierry