While Nomfichier <> ""
chemin_et_fichier = NomRep1 & "\" & Nomfichier
MsgBox chemin_et_fichier
Dim CL1 As Workbook
Dim CL2 As Workbook
Workbooks.Open (chemin_et_fichier)
DoEvents
Set CL1 = ActiveWorkbook
Workbooks.Open (fichier_demo)
DoEvents
Set CL2 = ActiveWorkbook
CL1.Worksheets(1).Range("A1:CG36").Copy CL2.Worksheets("feuille3").Range("A1")
DoEvents
ActiveWorkbook.SaveAs Filename:=NomRep2 & "\" & "f_" & Nomfichier, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
DoEvents
SendKeys NomRep3 & "\" & "pdf_" & Nomfichier + "~"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", Collate:=True
CL2.Close False
DoEvents
CL1.Close False 'ferme le fichier d:\essai\Fichier1.xls sans enregistrer
DoEvents
Set CL1 = Nothing
Set CL2 = Nothing