Suppresion des 2 dernières colonnes

Sub Dernière_colonne_supprimer()
 Dim DerCol As Long, WS As Worksheet

 Set WS = Worksheets("Feuil1") ' à adapter
 DerCol = WS.Cells(1, WS.Columns.Count).End(xlToLeft).Column

 If DerCol >= 7 Then
    If WS.Cells(2, DerCol) <> "" Then WS.Columns(DerCol).Delete
    If WS.Cells(2, DerCol - 1) <> "" Then WS.Columns(DerCol - 1).Delete
 End If
End Sub

Option Explicit
Sub Dernière_colonne_supprimer()
    Range("f2").End(xlToRight).Offset(, -1).EntireColumn.Resize(, 2).Delete
    Range("e2").Select
End Sub