Sub Macro1()
Dim chem As String 'déclare la variable chem
Dim o as WorkSheet 'déclare la variable o (Onglet)
set o = Sheets("Facture")
chem = "C:\Documents and Settings\TROUILFL\Bureau\Facture à classer"
o.Copy 'copie l'onglet
'crée un nouveau classeur avec l'onglet "Facture"
ActiveWorkbook.SaveAs Filename:=chem & o.Range("H3").Value & " " & o.Range("D8") & " " & o.Range("B22") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
With ActiveWorkbook.Sheets("Facture") 'prend en compte l'onglet "Facture" du nouveau classeur
.Cells.Copy 'copie toutes les cellules
'colle uniquement les valeurs
.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With 'fin de la prise en compte de l'onglet "Facture" du nouveau classeur
ActiveWorkbook.Save 'sauve le nouveau classeur
ActiveWindow.Close 'ferme le nouveau classeur
End Sub