retaille chaque feuille de tous les fichiers ouverts + supprime les lignes blanches en fin de fichier

Sub DEBUT_FEUILLE_TOUS()
'
'
' Macro enregistrée le 30/09/2009 par sgouzien
' retaille chaque feuille de tous les fichiers ouverts
' supprime les lignes blanches en fin de fichier
'
Dim WB As Workbook
Dim WS As Worksheet
Dim i As Integer
Dim j As Integer
i = 0
  
' désactiver le rafraîchissement de l'écran pour accélérer le traitement
  Application.ScreenUpdating = False

' parcours tous les  fichiers, et dans chaque fichier :
For Each WB In Workbooks

  If WB.Name <> "macro.xls" Then
' parcours tous les feuilles du fichier, et dans chaque feuille :
   
    i = i + 1
    For Each WS In WB.Worksheets

      WS.Activate
      ActiveWindow.ScrollRow = 1
      ActiveWindow.ScrollColumn = 1
      Range("A1").Select
' retaille toutes les colonnes
      WS.Columns.ColumnWidth = 13
' Masque les colonnes C, H et J
      WS.Range("C:C,H:H,I:I,J:J").EntireColumn.Hidden = True
' supprime les lignes blanches en fin de fichier :
' on suppose qu'il y a au max 2000 lignes et que si la première cellule est vide c'est que la ligne est vide
      For i = 2000 To 1 Step -1
         If IsEmpty(WS.Rows(i)) Then WS.Rows(i).Delete
      Next
    Next
    WB.Worksheets(1).Activate
    WB.Save
   
  End If
Next
  
' désactiver le rafraîchissement de l'écran pour accélérer le traitement
  Application.ScreenUpdating = True

MsgBox ("fin du traitement, " & i & " fichiers traités ")
End Sub