PROGRESS-BAR SUR PROCEDURE

[DAVIDRUN]

Bonjour le forum,

En considérant cette procédure pour l'exemple:

Sub Copy()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open Filename:=ThisWorkbook.Path & "\Pieces" & "\" & ComboBox2.Value & "-" & NFacture.Value & ".xls"
ActiveWorkbook.sheets(1).Range("A2:G50").Copy
ActiveWorkbook.Close
ThisWorkbook.sheets("Pièces").Range("A2").PasteSpecial Application.DisplayAlerts = True
Application.ScreenUpdating = True
End sub

Quel code insérer pour afficher un progbar ?

Merci d'avance
DAVIDRUN