Sub sauvegarde()
Dim £data1 As String
With Sheets("QUITTANCE")
£data1 = .Range("f6") & .Range("e13") & .Range("f13")
End With
Sheets("QUITTANCE").Copy
Sheets("QUITTANCE").Select
ActiveWorkbook.SaveAs Filename:= _
£data1, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
End Sub