bonjour tout le monde et heureux d'être de retour parmis vous

j'ai un petit problème
j'ai écris un petit code pour supprimer une colonne (entière) qui contient la cellule "société" et le "profit"

donc le code est le suivant:

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
Sub suppression()
 
 
 
Dim rg As Excel.Range
Range("B10").Select
Range(Selection, Selection.End(xlToRight)).Select
 
For Each rg In Selection
    If rg = "Société" or rg="Profit" Then
    rg.EntireColumn.Delete
    End If
Next
 
End Sub
l'inconvenient c'est que ça me supprime une seule colonne or je veux que les deux soit supprimer

est ce que quelqu'un pourrait éclairer ma lanterne en panne de courants ^^?

merci d'avance