Bonjour à tous

J'ai crée une procédure qui ajoute un classeur et le sauve dans D:\user\toto.xls. Je voudrais qu'à chaque lancement il crée toto1, toto2 toto3 etc.... et les sauve dans le même repertoire.
Voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub AddNew()
Dim Newbook As Workbook
On Error Resume Next
Set Newbook = Workbooks.Add(xlWBATWorksheet)
On Error Resume Next
    With Newbook
        .Title = "Result toto"
        .Subject = "Result"
        .SaveAs Filename:="D:\user\Result toto.xls"
    End With
End Sub