Ajuster la taille des colonnes de chaque page

Bonjour tout le monde,

Mon problème est assez simple mais je n'arrive pas à le résoudre. Je cherche à ce que lors de l'ouverture du classeur, les tailles des colonnes de chaque page soient ajustés automatiquement.

De même lors du changement de page; pour cette fois ci uniquement les colonnes de la page donnée.

Voici une ébauche de code qui malheureusement ne fonctionne pas :

Private Sub Workbook_Open()

Dim i As Integer

For i = 0 to Sheets.Counts
    With ThisWorkBook.Sheets(i)
             .Columns.Autofit
   End With
Next i

End Sub

Concernant le changement de page, quel est le nom de la procédure ? "Private Sub Workbook_Change() peut-être ?

Merci pour votre aide

Bonjour

Ta macro corrigée

Private Sub Workbook_Open()

Dim i As Integer

  For i = 1 To Sheets.Count
    With ThisWorkbook.Sheets(i)
      .Columns.AutoFit
    End With
  Next i

End Sub

Barthe a écrit :

Concernant le changement de page, quel est le nom de la procédure ?

Private Sub Worksheet_Activate()
  Columns.AutoFit
End Sub

Super sa ! Merci bc, sa marche du feu de dieu