Fichier = ActiveWorkbook.Path & "\WORD\" & TextBox1.Value 'Emplacement de sauvegarde
Sheets(Sheets("Ligne").[P2].Value).Copy 'Nom de la Feuil
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbookMacroEnabled, Filename:=Fichier
ActiveWorkbook.Close