Sub test()
Dim madate As Date
Dim varjour As Byte
Dim varmois As Integer
Dim varan As Integer
derlig = Range("c" & Cells.Rows.Count).End(xlUp).Row
For i = 1 To derlig
madate = Cells(i, 3).Value
varjour = Day(madate)
varmois = Month(madate) - 3
varan = Year(madate)
If varmois < 1 Then varmois = 12 + varmois
Cells(i, 4).Value = CDate(varjour & "/" & varmois & "/" & varan)
Next
End Sub
ou Cells(i, 4).Value =Cells(i, 3).Value -91 ....
A+ François
ps: salut fredoo...c'est encore + simple autant pour moi...j'avais oublié dateserial...
Sub Plus3mois()
Dim xCell As Range
With ActiveSheet
For Each xCell In Range(.Cells(1, 3), .Cells(.Rows.Count, 3).End(xlUp))
If IsDate(xCell) Then xCell = DateSerial(Year(xCell), Month(xCell) - 3, Day(xCell))
Next xCell
End With
End Sub
Sub Plus3mois()
Dim xCell As Range
With ActiveSheet
For Each xCell In Range(.Cells(1, 3), .Cells(.Rows.Count, 3).End(xlUp))
If IsDate(xCell) Then xCell = DateSerial(Year(xCell), Month(xCell) - 3, Day(xCell))
Next xCell
End With
End Sub