un essai macro:
Merci pour votre retour, le code marche comme je le voudrais!
Je l'ai adapté à mon cas, voici la version finale si cela peut aider quelqu'un d'autre.
Merci encore!
Sub DATE_MODIFICATION()
Dim x As Integer
Dim LastRow2 As Long
Dim mois As Date
Dim année As Date
Columns(9).Insert
Cells(1, 9) = ("Date traitée")
LastRow2 = Sheets("DATA SELECTION").Range("A" & Rows.Count).End(xlUp).Row
For x = 2 To LastRow2
mois = Round(Int((Month(Cells(x, 8)) - 1) / 3)) * 3 + 3
année = Year(Cells(x, 8))
Cells(x, 9) = DateSerial(année, mois + 1, 0)
Next x
End Sub