XL 2016 Supprimer dans colonne sous condition

Sub Supprimer()
Dim i&, t
   If Me.FilterMode Then Me.ShowAllData
   t = Range("a1:d" & Cells(Rows.Count, "a").End(xlUp).Row)
   For i = 1 To UBound(t)
      If t(i, 1) = "X" Or t(i, 1) = "W" Then t(i, 2) = "": t(i, 3) = ""
      If t(i, 1) = "W" Then t(i, 4) = ""
   Next i
   Range("a1").Resize(UBound(t), 4) = t
End Sub

Sub Sup()
Dim Derlig&, i&
Derlig = Worksheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To Derlig
    If Range("A" & i) = "X" Then Range("B" & i & ":C" & i).ClearContents
    If Range("A" & i) = "W" Then Range("B" & i & ":D" & i).ClearContents
Next i
End Sub

Sub TEST()
    For F = 1 To 35
        Select Case Cells(F, "A")
            Case Is = "X"
                Range("B" & F & ":C" & F).ClearContents
            Case Is = "W"
                Range("B" & F & ":D" & F).ClearContents
        End Select
    Next F
End Sub