Lechemin = "C:\" 'Emplacement où on enregistre
LeFichier = ThisWorkbook.Sheets("ASN").Cells(1, 2) 'Le nom du fichier prend la valeur de la cellule B1
ThisWorkbook.Sheets("ASN").Copy 'On copie la feuille
ActiveWorkbook.SaveAs Lechemin & LeFichier, xlWorkbookNormal 'On enregistre sous au format xls
ActiveWorkbook.Close 'On ferme le fichier