For Each FileItem In SourceFolder.Files
name1 = FileItem.name
namechemin = Repertoire & "\" & FileItem.name
Workbooks.Open (namechemin)
'recuperer le prenom de la feuille RMA
Prenom2 = Workbooks(name1).Worksheets("feuil1").Range("B" & 2).Value
Prenom1 = Replace(Prenom2, " ", "")
Prenom = Replace(Prenom1, "-", "")
'recuperer le nom de la feuille RMA
Nom2 = Workbooks(name1).Worksheets("feuil1").Range("B" & 3).Value
Nom1 = Replace(Nom2, " ", "")
Nom = Replace(Nom1, "-", "")
'recuperer le mois de la feuille RMA
Mois2 = Workbooks(name1).Worksheets("feuil1").Range("B" & 4).Value
Mois1 = Replace(Mois2, " ", "")
If Mois1 = "Janvier" Then
Mois = "01"
End If
.....
If Mois1 = "Décembre" Then
Mois = "12"
End If
'recuperer l'année de la feuille RMA
Annee2 = Workbooks(name1).Worksheets("feuil1").Range("B" & 5).Value
Annee1 = Replace(Annee2, " ", "")
Annee = Right(Annee1, 2)
'changer le nom du fichier pour la forme prenom nom_RMA MM-AA
NouveauNomClasseur = Prenom & " " & Nom & "_RMA " & Mois & "-" & Annee
ActiveWorkbook.SaveAs Filename:=Repertoire & "\" & NouveauNomClasseur
Fso.DeleteFile namechemin
Workbooks(NouveauNomClasseur).Close SaveChanges:=False
Next