Redimensionnement auto

bonjour à tous,

dans ce fichier j'ai utilisé ce code suivant pour redimensionner automatiquement les cellules :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.EntireColumn.AutoFit

End Sub

Est il possible de réaliser le redimensionnement mais dès l'ouverture du fichier et non pas dès le changement de sélection?

merci!

Bonjour,

Code à mettre dans le module ThisWorkbook à l'intérieur :

Private Sub Workbook_Open()

End Sub

Il faudra peut-être gardé aussi l'ancien code si nécessaire.