Merci Mytä, t'a vu !!! J'avance.....
Columns("A:N").ColumnWidth = 5 'largeur colonnes
Worksheets("TEXTE").PageSetup.LeftMargin = Application.CentimetersToPoints(0.5)
Range("K5:K25").Borders(xlEdgeRight).LineStyle = xlContinuous
Et j'en passe d'autres qui m'émerveillent. (M'faut pas beaucoup..)
L'aide VBA, votre aide ici; + un bon shaker + bcp d'heures, et Hop !
Merci à toi, merci à tous, vous êtes Supers
Bonne fin de Fin de Semaine.
IFFIC