bonjour delirium , michel , le forum essaie comme cela defois!! Private Sub CommandButtonPlanC_Click()
Application.ScreenUpdating = False
Workbooks.Open Filename:=ThisWorkbook.Path & '\\PlanC.thx'
Workbooks.Open Filename:=ThisWorkbook.Path & '\\PlanR.thx'
Windows('PlanR.thx').Activate
Sheets('Données').Range('D378
409').Copy
Windows('PlanC.thx').Activate
Sheets('Résumé Congés').Range('O378:O409').PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
call vide_pp
Windows('PlanR.thx').Activate
Sheets('Données').Range('E12:E377').Copy
Windows('PlanC.thx').Activate
Sheets('Feuil4').Range('F12:F377').PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
call vide_pp
Windows('PlanR.thx').Activate
ActiveWindow.Close
Windows('PlanC.thx').Activate
Sheets('Feuil1').Range('A1').Select
End Sub' salutations