Voici un autre code, ça fonctionne, mais ne copie pas la feuille active
Sub ArchiveV1()
Dim Chemin As String, nomFichier As String, extension As String
Chemin = "C:\Users\Gd\Downloads\"
Sheets("Feuil4").Copy 'je pense le pr est ici, j'aimerais avoir la feuille active
nomFichier = "Feuille de présence"
r = InputBox("Donnez le nom :", "Nom à ajouter")
If r = "" Then End
nomFichier = nomFichier & " " & r
extension = ".xlsx"
With ActiveWorkbook
.SaveAs Filename:=Chemin & nomFichier & " " & "-" & Format(Now, "dd mmmm yyyy hh.mm.ss") & "" & extension
.Close
End With
End Sub
A++++