Sub NlleRemise()
Dim Chemin As String, Nouveau As String
'définir le chemin de MesDocuments
'Chemin = "C:\Users\Salah\Desktop\Comptabilite"
Chemin = ThisWorkbook.Path 'pour tester facilement...
'définir la feuille à copier
'créer un nouveau classeur avec une seule feuille
ActiveSheet.Copy
'transférer les valeurs (au cas où il y aurait des formules)
ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
ActiveSheet.Shapes.Range(Array("Image 1")).Delete
'récupérer le nom à donner au nouveau classeur
1 Nouveau = InputBox("Indiquez Le N° de la Remise :")
Range("F2") = Nouveau
Range("D4:D60") = Nouveau
ActiveSheet.Name = Nouveau
If Nouveau <> "" Then
'sauvegarder le classeur
On Error Resume Next
ActiveWorkbook.SaveAs Chemin & "\" & "Remise " & Nouveau & ".xls"
ActiveWorkbook.Close
If Err Then GoTo 1 's'il y a des caractères interdits
End If
End Sub