Sub Inserer_Formules()
With ActiveSheet.ListObjects(1).DataBodyRange
.Cells(1, 1).FormulaR1C1 = "=IF(R[-1]C[4]<>""En cours"","" "",IF(R[-1]C[10]<91,""Arrêt reconduit"",IF(R[-1]C[10]>91,""Avis d'invalidité"")))"
.Cells(1, 5).FormulaR1C1 = "=IF(RC[4]="""","""",IF(RC[-3]=R[1]C[-3],(IF(COUNTIF(RC[4]:R[73]C[4],""Oui""),""Clôturé"",""En cours"")),(IF(RC[4]=""Oui"",""Clôturé"",""En cours""))))"
.Cells(1, 10).FormulaR1C1 = "=(RC[-3]-RC[-4])+1"
.Cells(1, 11).FormulaR1C1 = "=IF(AND(RC[-9]=R[-1]C[-9],OR(R[-1]C[-2]=""Non"")),(RC[-1]+R[-1]C),RC[-1])"
.Cells(1, 12).FormulaR1C1 = "=IF(RC[-1]>91,""À envoyer"",""-"")"
.Cells(1, 17).FormulaR1C1 = "=(RC[-1]-RC[-2])+1"
End With
End Sub