Insérer 1 colonne en conservant une série de nbre

Merci pour ton message.
Jusqu’à 115. Merci

j'ai bidouillé ce code qui réagit sur un changement ligne 2 en supposant que tu effaces ou inseres systématiquement des colonnes ainsi j'ai pu programmer la mise à jour des numéros jusqu'à 115 sans revenir sur un évènement dans la ligne que je met à jour
tu peux inserer 50 colonnes (ou plus encore) d'un coup ça tourne... pour la ligne 1.. ne sachant pas ce qui est en dessous je ne m'en suis pas occupé...
alt+F11 sur l'onglet à programmer et colle le code qui suit en l'adaptant bien sûr

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, dercol As Long

If Not Application.Intersect(Target, Range("2:2")) Is Nothing Then
    dercol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
    If dercol < 115 Then dercol = 115
    For i = 1 To dercol
        If i <= 115 Then
            Worksheets("NOMDELAFEUILLE").Cells(1, i).Value = i
        Else
            Worksheets("NOMDELAFEUILLE").Cells(1, i).Value = ""
        End If
    Next i
Else
End If

End Sub

Merci tellement!!!

Bonjour

Merci pour la réponse. Le but est de pouvoir l’appliquer sur toute la ligne pour chaque colonne. Car si j’etire Ça ne fonctionne pas du tout :)
Merci

bonjour Raymond,
Tu as raison, en terme de numérotation la formule =COLONNE() fonctionne parfaitement
je pense que c'est le côté "mise à jour" qui ne convenait pas
"je voudrai si je supprime ou insère une colonne que ma série de chiffre se mette directement à jour"

Merci Fabien :)