Sub copie()
Dim LePath As String, Lenom As String, LePc As String
If MsgBox("Etes vous certain d'avoir la qualification pour enregistrer le document?", vbQuestion + vbYesNo, "Autorisation") = vbYes Then
LePc = "\\" & Environ("COMPUTERNAME") & "\"
LePath = "Mes documents\testcopie\" ' A adapter
Lenom = "PLAN CONSULT"
ActiveWorkbook.SaveCopyAs LePc & LePath & Lenom & ".xlsm"
End If
End Sub