Bonjour,

Je me permets de solliciter votre aide car je suis coincé sur un code.
J'aimerais que la macro puisse supprimer toutes les colonnes sauf celles ayant une entête précise.

Je suis parvenu à trouver des exemples pour faire l'inverse de ce que je souhaite, cad supprimer les colonnes en fonction de leurs entêtes :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub SupprCol2()
 
Dim i As Long
Dim j As Long
 
For i = 2 To 2 'La deuxieme ligne
 
For j = 1 To 60 'les 60 premières colonnes
 
        If Cells(i, j) = "Adresse" Then
            Cells(i, j).EntireColumn.Delete
            j = j - 1
        End If
    Next
 Next
 
End Sub
En indiquant <> au lieu de =, ma boucle tourne à l'infini et je n'arrive pas à la faire stopper quand le but recherché est atteint.
Je vous remercie par avance pour votre aide.

Bien cordialement.
Barthélémy.