Copier automatiquement

Option Explicit
Sub bouclefeuille()
'Déclare la variable objet Worksheet
Dim Ws As Worksheet
Application.ScreenUpdating = False
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each Ws In ThisWorkbook.Worksheets
    'Renvoie le nom de chaque feuille
    If Ws.Name <> "Gestion des objets" And Ws.Name <> "Orde de sortie" Then
    Range("T6:U61").Copy
    Sheets(Ws.Name).Select
    Range("T6").Select
    ActiveSheet.Paste
    Worksheets(Ws.Name).Columns("T:U").AutoFit
    End If
    Next Ws
    Application.ScreenUpdating = True
End Sub