Sub ConsultTheorique()
Dim cell As Range
Range("f2:i" & Range("a65000").End(xlUp).Row).ClearContents
For Each cell In Range("c2:c" & Range("c65000").End(xlUp).Row)
If cell + 90 > Date Then
If Month(cell) < 10 Then
cell.Offset(0, 3) =[COLOR=Blue] DateSerial([/COLOR]Year(cell), Month(cell) + 3, Day(cell)[COLOR=Blue])[/COLOR]
Else
cell.Offset(0, 3) = [COLOR=Blue]DateSerial([/COLOR]Year(cell), Month(cell) - 9, Day(cell) + 1[COLOR=Blue])[/COLOR]
End If
Else
End If
Next cell
End Sub