Sub tout_convertir()
Dim Chemin As String
Dim Fich As String
Application.DisplayAlerts = False
Chemin = "C:\Documents and Settings\p060092\Desktop\fichier a convertir\"
Fich = Dir(Chemin & "*.xls")
Do While Fich <> ""
Workbooks.Open Chemin & Fich
Workbooks(Fich).Activate
ConvetirF3ProcessFr
ActiveWorkbook.SaveAs Chemin & "modifs\" & Fich
ActiveWorkbook.Close
Fich = Dir
Loop
Application.DisplayAlerts = True
End Sub