Discussion :

[ouskel'n'or]

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