...@ 00 Je n'ai pas pu ouvrir ton fichier...
... le fichier original contient 53 feuille ...
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With