Bloquer largeur de colonne EXCEL

Je suis pas super bon en macro.
Vous auriez un petit exemple ?

Merci d'avance

Re,

exemple:

Sub largeurColonnes()
    Dim larg As Variant, col As Long
    larg = Array(15, 25, 8) ' largeur des colonnes dans un tableau
    For col = 2 To 4 ' à partir de la colonne 2 
        Columns(col).ColumnWidth = larg(col - 2)
    Next col
End Sub

eric

Ca n'a pas l'air de marcher, j'aimerais bien définir la largeur de chaque colonne si c'est possible.

Voila mon programme, où est ce que je peux insérer le votre ?

Option Explicit
Public Wks As Worksheet
Const Nom = "Process Analysis Synoptic"

Public Sub CopieTB()
Dim Lig As Long, NbTB As Integer, Ordre As Integer
Dim Plage As Range, cel As Range
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Sheets(Nom).Delete
Set Wks = Sheets.Add
Wks.Move After:=Sheets("synoptic")
Wks.Name = Nom
With Sheets("synoptic")
Set Plage = .Range("B19:B" & .Cells(.Rows.Count, 2).End(xlUp).Row)
'Compte le nombre de TB à copier
For Each cel In Plage
If cel <> "" Then NbTB = NbTB + 1
Next cel
If NbTB = 0 Then Exit Sub 'pas trouver de sélectionµ
For Lig = 1 To NbTB
For Each cel In Plage
If cel = Lig Then
CopieUnTB cel
End If
Next cel
Next Lig
End With
Wks.Select
Set Wks = Nothing
Application.DisplayAlerts = True
End Sub

Sub CopieUnTB(cel As Range)
Dim TB, LigNext As Long
TB = Split(cel.Offset(0, 1), "/")
With Sheets(Trim(TB(0)))
LigNext = Wks.Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1
.Range("A10:" & .Range("A1").SpecialCells(xlCellTypeLastCell).Address).Copy Wks.Range("A" & LigNext)
End With
End Sub

Merci D'avance

où est ce que je peux insérer le votre
plutôt en fin de la procédure que tu appelles

Et à quoi correspondent les chiffres de votre code ?