Sub Calculs2()
With Sheets("Travail")
'Insérer les formules dans les cellules
.Range("D11").FormulaR1C1 = "=DATEDIF(R11C2,R11C3,""Y"")"
.Range("E11").FormulaR1C1 = "=DATEDIF(R11C2,R11C3,""ym"")"
.Range("F11").FormulaR1C1 = "=DATEDIF(R11C2,R11C3,""md"")"
.Range("G11").FormulaR1C1 = "=MOD(R11C3-R11C2,1)"
'Remplacer les formules par leur valeur calculée
With Range("D11", "G11")
.Value = .Value
End With
End With
End Sub