Changer nom d'un dossier

Bonjour,
J'ai crée ce bout de code pour essayer de faire changer le nom de mon dossier en fonction du mois (représenté par i), en gros ca devrait afficher 1 pour janvier, 2 pour fevrier... car le fichier est mit à jour chaque mois. Bien entendu ca ne fonctionne pas donc j'aimerai bien savoir si vous avez pas des idées pour l'améliorer.
For i = 1 To 12
If Workbooks("Copie de Barème PJ 0" & i & "2018.xls").exist Then
l = Workbooks("Copie de Barème PJ 0" & i & "2018.xls").Worksheets("Barème PJ").Range("E40:E41").Value
Workbooks("exemple1.xlsm").Worksheets("baremes").Range("k51") = l
End If
Next i

Merci beaucoup!