Supprimer des colonnes non désirées

Bonjour à tous,

Comme vous pouvez l'imaginer, je ne suis pas un expert des macros, et je suis ici puisque j'ai un problème lié à une macro Excel.

Voici la situation : j'importe des données, et obtient un énorme tableau dont je ne veux conserver que certaines des colonnes. A l'activation de la feuille, je veux donc parcourir l'ensemble des colonnes, et supprimer celles dont le titre n'est pas égal aux titres que je veux garder. J'utilise pour ça le code suivant :

Cependant, lorsque j'active ce programme Excel ne répond plus.

Et je n'arrive pas à comprendre pourquoi, c'est pourquoi je m'en remets à vous !

Merci d'avance

Bonjour,

Sans tenir compte du code, peut-être en ajoutant "Application.ScreenUpdating=True" à la fin ?

Merci de votre réponse,

malheureusement je viens d'essayer et c'est toujours le même problème.

Bonjour,

A tester et à adpater.

Cdlt.

Public Sub DeleteColumns()
Dim lastCol As Long, lCol As Long
    Application.ScreenUpdating = False
    With ActiveSheet
        lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
        For lCol = lastCol To 1 Step -1
            Select Case .Cells(lCol).Value
                'Do nothing, wanted colums
                Case "sku", "code_fabricant", "designation_orcab_longue", "photo_produit_3":
                'Delete columns not wanted
                Case Else:
                    .Cells(lCol).EntireColumn.Delete
            End Select
        Next lCol
    End With
End Sub

Ca a fonctionné ! Merci beaucoup pour votre précieuse aide