Suppression colonne si suppression d'une feuille

Bonjour

Tout d'abord, merci à tous ceux qui m'ont aidé à avancer sur la compréhension du VBA

1. utilisateur peut générer une nouvelle feuille en cliquant sur le bouton "SEANCE"

2. enregistrement + calcul de la moyenne

PB :

J'aimerai maintenant lors de la suppression d'une feuille supprimer la colonne portant même nom dans la feuille "EVO"

ex : si suppression FEUILLE : "20 mars" alors suppression de la COLONNE "20 mars" dans la feuille EVO

J'essaye de capter l'évènement avant la suppression d'une feuille afin de récupérer son nom respectif avec worksheet.beforeDelete mais j'ai un conflit ?

NB : le modèle est masqué et je le fais apparaître lors de sa copie sinon cela me génère des feuilles masquées automatiquement

Merci d'avance

Bonjour,

Dans le module ThisWorkbook, testez ce code :

Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)

Dim I As Integer, DerniereColonne As Integer
Dim NomColonne As String

       NomColonne = Sh.Name

       With Sheets("EVO")
            DerniereColonne = .Cells(1, .Columns.Count).End(xlToLeft).Column

            For I = DerniereColonne To 1 Step -1
                If .Cells(1, I) = NomColonne Then
                   .Columns(I).Delete Shift:=xlToLeft
                   Exit For
                End If
            Next I
       End With

End Sub