Enregistrements iteratifs de fichiers

Bonjour à tous,

Le but de ce code serait de faire des copie/colle de feuilles excel (sans les formules ce qui me fait gagner de la place et me permet ensuite de travailler plus facilement sur ces fichiers). Mon problème est que je ne trouve pas comment créer une itération sur des noms de fichiers (ceux à ouvrir et ceux à créer).

Option Explicit

Sub copiecolle()

'

' copiecolle Macro

' Macro enregistrée le 23/05/2011

'

' Touche de raccourci du clavier: Ctrl+g

'

    Dim i As Integer

    For i = 0 To 59

        Workbooks.Open Filename:="C:\Moyenne_VP\VL_i.xls"

        Cells.Select

        Selection.Copy

        Workbooks.Add

        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

            False, Transpose:=False

        Range("A1").Select

        Application.CutCopyMode = False

        ActiveWorkbook.SaveAs Filename:="C:\Moyenne_VP\total_i.xls", FileFormat:= _

            xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _

            , CreateBackup:=False

        ActiveWindow.Close

        ActiveWindow.Close

    Next i

End Sub

Les fichiers s'appellent donc VL_0 à VL_59, j'ai testé VL_& i &, VL_i, VL_"i" et d'autres choses encore moins cohérentes et ne trouve pas de solutions dans l'aide VB.

Merci d'avance pour vos réponses.