Option Explicit
Sub Formules()
Range("A5").Formula = "=""Total des Ventes pour ""&DAY(TODAY())&"" jours"""
Range("B6:H6").Formula = "=R[-1]C/DAY(TODAY())"
Range("I5").Formula = "=SUM(RC[-7]:RC[-1])"
Range("I6").Formula = "=AVERAGE(RC[-7]:RC[-1])"
Range("A4:I6").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("A4").Select
End Sub