Sub testmacro()
Dim Chemin$, Fichier$, Chemin2$
Chemin = _
"D:\prix_de_revient\" & [I2] & "\"
Fichier = _
[e3] & " " & Format([i21], "##.00") & " PV TTC" & " " _
& Format([f22], "##.00") & "% " & [M2] _
& " " & Format([c3].Value, "ddmmyy") & ".xls"
Chemin2 = "C:\Users\Nous\Desktop\RESTO\CALCUL PRIX DE REVIENT"
ThisWorkbook.Save
ChDir "C:\"
ActiveWorkbook.SaveAs Chemin & Fichier, xlNormal
ChDir Chemin2
Workbooks.Open Chemin2 & "\" & "calcul cout de revient.xls"
Range("I2:L2,C3:C5,E3:M5,B7:C18,E7:E18,I7:J18,M7:M 18,I21,m2").ClearContents
End Sub