Bonjour,
Les codes qui donnent les premiers jours du mois, à tester :
Sub Date_Dernier()
Cells(10, 1) = WorksheetFunction.EoMonth(Cells(10, 1), -2) + 1
End Sub
Sub Date_du_jour()
Cells(10, 1) = WorksheetFunction.EoMonth(Date, -1) + 1
End Sub
Sub Date_Suivant()
Cells(10, 1) = WorksheetFunction.EoMonth(Cells(10, 1), 0) + 1
End Sub