Changement d'une largeur de cellule suivant un mot

Bonjour,

Je cherche actuellement changer la largeur des colonnes contenant le mot "SERIE". Je n'arrive pas à incrémenter la largeur dans ma formule.

Voici mon code actuel :

Sub Largeur_cell()

Dim SrchRng As Range, cel As Range

Set SrchRng = Range("A1:F1")

For Each cel In SrchRng
    If InStr(1, cel.Value, "SERIE") > 0 Then
        Cell.ColumnWidth = 2
        Else
        MsgBox ("FAUX")
    End If
Next cel

End Sub

Je vous remercie par avance,

Goat

J'avais fait une petite erreur d'inattention.

J'ai mis cell au lieu de cel

autant pour moi. Le sujet est clos

Sub Largeur_cell()

Dim SrchRng As Range, cel As Range

Set SrchRng = Range("A1:F1")

For Each cel In SrchRng
    If InStr(1, cel.Value, "SERIE") > 0 Then
        Cel.ColumnWidth = 2
        Else
        MsgBox ("FAUX")
    End If
Next cel

End Sub

Bonjour, vu trouvé la même erreur avec "Cel" et pour info l'ajustement automatique de votre colonne c'est :

cel.EntireColumn.AutoFit