Devinette du vendredi!!

J'ai un tableau avec 2 colonnes

fic1.pdf fic1-cool.pdf
fic2.pdf fic2-cool.pdf

Et j'ai un répertoire avec 2 dossiers fic1 et fic2

je souhaite renommer ses fichiers et les mettre dans un autre répertoire.
Aprsè une journée de travail,j'ai bati ce code mais le prog ne trouve pas les fichiers alors qu'ils sont là est ce que mon code déconne!!là est la question

tatiana

Sub ListingFichiers()

Dim Chemin As String, Fichier As String, chemin2 As String
Dim AncienNom As String, NouveauNom As String

Dim i As Integer

Chemin = "C:\Documents and Settings\Bureau\SEPIA\base1\"
chemin2 = "C:\Documents and Settings\Bureau\SEPIA\base2\"
For Ligne = 1 To 2

AncienNom = Range("A" & Ligne).Value
NouveauNom = Range("B" & Ligne).Value

Fichier = Dir(Chemin & AncienNom)
If Fichier = Empty Then
MsgBox "le fichier " & AncienNom & " n'a pas été trouvé"
Else
Name Chemin & Fichier As chemin2 & NouveauNom
End If
Next Ligne
End Sub