J'ai le code suivant qui marche trés bien mais j'aimerais utiliser des tableaux pour gagner du temps lors du traitement.
Quelqu´un pourrait m'éxpliquer la démarche à suivre ?
Sub Deletecolums()
Dim I As Long
Dim LastCol As Long
With Worksheets("Resultl")
Application.ScreenUpdating = False
LastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
For I = LastCol To 4 Step -2
.Columns(I + 1).Delete
Next I
Application.ScreenUpdating = True
End With
End Sub
