Bonjour,

Peut être comme cela

Sub moyenne()
'macro ouverture de fichier
Range("A2:f1000") = ""
ChDir ("C:\Users\" & Environ("UserName") & "\Downloads")
Dim wbMyWb As Workbook
Dim...