Tu as essayé ça ?
A+Code:
1
2
3
4 With Application NbFeuilles = .SheetsInNewWorkbook .SheetsInNewWorkbook = NbFeuilles + 1 End With
Edit
Je ne pense pas que ça réponde à ta demande :cry:
Version imprimable
Tu as essayé ça ?
A+Code:
1
2
3
4 With Application NbFeuilles = .SheetsInNewWorkbook .SheetsInNewWorkbook = NbFeuilles + 1 End With
Edit
Je ne pense pas que ça réponde à ta demande :cry: