Sub deletecolonne()
Dim O As Worksheet
'
' suppression des colonnes des feuilles du tableau des noms
For Each O In Worksheets(Array("Feuil1", "Feuil2"))
O.Range("G:i,m:o,t:w,aq:at,aw:ay,ba:bb,AA:AN").Delete
Next
End Sub
Sub deletecolonne2()
Dim i As Integer
'
' suppression des colonnes des feuilles par index 1 = première feuille
For i = 1 To 2
ThisWorkbook.Worksheets(i).Range("G:i,m:o,t:w,aq:at,aw:ay,ba:bb,AA:AN").Delete
Next i
End Sub
Sub deletecolonne3()
Dim i As Integer
'
' suppression des colonnes par le nom indéxé des feuilles de 'Feuil1' à 'Feuil2'
For i = 1 To 2
ThisWorkbook.Worksheets("Feuil" & i).Range("G:i,m:o,t:w,aq:at,aw:ay,ba:bb,AA:AN").Delete
Next i
End Sub