'---------------------------------------
Sub Test()
With Worksheets("Feuil1")
.Range("C1") = "'" & .Range("B1").Formula
End With
'---------------------------------------[/HIGHTLIGHT]
End Sub
Et tu obtiendras ceci :
'=IF((MONTH(DATE(YEAR(TODAY()),MONTH(TODAY())-15,1)))>=10,YEAR(DATE(YEAR(TODAY()),MONTH(TODAY())-15,1))&MONTH(DATE(YEAR(TODAY()),MONTH(TODAY())-15,1)),YEAR(DATE(YEAR(TODAY()),MONTH(TODAY())-15,1))&"0"&MONTH(DATE(YEAR(TODAY()),MONTH(TODAY())-15,1)))