Bonjour Maxime.
Sub largTabl()
Dim nCol As Byte, largCol!
Const largTot! = 5.1 * 20
With Sheets(1)
nCol = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
largCol = largTot / nCol
.Columns(1).Resize(, nCol).ColumnWidth = largCol
End With
End Sub
Calcul le numéro de la dernière colonne de la feuille 1, soit le nombre de colonnes utilisées si tu utilises bien à partir de A sans vide entre. Sinon il faudra utiliser une autre méthode.
Calcul la largeur de chaque colonne par rapport à la constante largeur totale, 1 cm = 5.1 unité de valeur Excel.
Redimensionne les colonnes.