Sub test_date()
[COLOR="SeaGreen"]'premier jour du mois en cours[/COLOR]
M = CDate("01/" & Month(Date) & "/" & Year(Date))
[COLOR="seagreen"]'premier jour du mois précédent le mois en cours[/COLOR]
Deb = CDate("01/" & Month(Date) - 1 & "/" & Year(Date))
[COLOR="seagreen"]'dernier jour du mois précédent le mois en cours[/COLOR]
Fin = DateAdd("d", -1, M)
[A1] = Deb
[A2] = Fin
End Sub