Tu as essayé ça ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
With Application
     NbFeuilles = .SheetsInNewWorkbook
    .SheetsInNewWorkbook = NbFeuilles + 1
End With
A+
Edit
Je ne pense pas que ça réponde à ta demande