Dim monrepertoire As Variant
monrepertoire = Application.GetSaveAsFilename("Cliquez_directement_sur_enregistrer")
If VarType(monrepertoire) = vbString Then _
ThisWorkbook.SaveCopyAs Mid(monrepertoire, 1, InStrRev(monrepertoire, "\")) _
& "Copie de " & ThisWorkbook.Name