Rajout colonne sans modifier le code VBA

Bonjour ,

j'ai un fichier excel avec du code VBA .

Et je voudrais juste pouvoir inserer 2 colonneS entre la colonne A et B sans changer vraiment le code .

Vous trouverez mon fichier en PJ.

A vos lumières .

Bien cordialement

Salut,

Honnêtement le code est pas lisible, pas dynamique et compliquer pour rien mais a ce que j'ai compris je pense avoir la solution :

Ajoute ta colonne et remplace le code présent dans : Feuil1 (Plan_Actions) par celui que je te met en dessous, on devrait être pas trop mal.

Dim fs As Worksheet
Dim ln&, lgn&

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("M10:M" & Range("A65536").End(xlUp).Row)) Is Nothing Then
        ln = Target.Row
        Set fs = Sheets("Synthèse")
        If Range("M" & ln) = 1 And Range("D" & ln) <> "" Then
            lgn = Application.Max(9, fs.Range("A65536").End(xlUp)(2).Row)
            Range("A" & ln & ":L" & ln).Copy fs.Range("A" & lgn)
            fs.Range("A" & lgn & ":L" & lgn).BorderAround Weight:=xlThin

        End If
    End If

End Sub

Bonjour ,

je n'arrive toujours pas à inserer ma colonne @Vba_DOCK38 .

j'ai toujours le meme message d'erreur meme en supprimant le code .

Peux-tu ajouter ton fichier Excel que je puisse simuler l'erreur stp ?

Bonjour @Vba_Dock38,

ci joint le fichier .

cordialement