Private Sub CommandButton2_Click() 'VALIDER
Dim strPath$
strPath = ThisWorkbook.Path & "D:\Gestion AHI\transfer\" ' ---- Là ou le fichier doit aller
Worksheets("En cours").Copy
With ActiveWorkbook
.SaveAs strPath & "recept_gest.xlsx", 51: .Close True ' ---- se rajoute le nom du fichier créé.
End With