Sub toto()
With Sheets("Historique PERFORMANCES").Range("A1").End(xlDown)
.Offset(1, 0).FormulaR1C1 = "=+DATE"
.Offset(1, 1).FormulaR1C1 = "=+AGENT"
.Offset(1, 2).FormulaR1C1 = "=+EQUIPE"
.Offset(1, 3).FormulaR1C1 = "=+Répondu"
.Offset(1, 4).FormulaR1C1 = "=+TxGlobRéponse"
End With
End Sub