Sub bouteille_a_la_mer()
Dim chemin$, nomFic$
Dim objShell
Set objShell = CreateObject("Wscript.Shell")
chemin = objShell.SpecialFolders("MyDocuments") & "\SUIVI\"
nomFic = Sheets("MATRICE").Range("P5")
If Not Len(nomFic) Then
ActiveWorkbook.SaveAs chemin & nomFic, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End If
End Sub