Prendre une cellule comme nom de fichier

Bonjour à tous,

J'ai encore des soucis avec excel. Cette fois je voudrais enregistrer une feuille excel en document pdf qui aurait pour nom le contenu d'une cellule. Je voudrais automatiser le tout et pour ce faire j'ai utilisé une macro :

Sub Macro1() 
' 
' Macro1 Macro 
' Macro enregistrée le 14/06/2010 par  
' 
  
    Application.ActivePrinter = "Vente Partner PDF sur Ne00:" 
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ 
        "Vente Partner PDF sur Ne00:", Collate:=True 
    Range("I1").Select 
    Selection.Copy 
     
       Sheets("Bon").Select 
    nbr = Range("G1").Value 
    nbr = nbr + 1 
    Sheets("Bon").Select 
    Range("G1").Value = nbr 
End Sub

La cellule G1 correspond à mon compteur pour faire défiler les données.
Actuellement ma macro enregistre le fichier, le problème est qu'elle l'enregistre avec le nom du fichier excel et non pas avec la cellule sélectionnée I1.

Que manque t-il à ma macro pour qu'elle fonctionne correctement ?

Slylia.