XL 2019 Suppression ligne avec texte spécifique dans cellule

Sub suppression_ligne()
Dim nbligne As Long
nbligne = Range("B1").CurrentRegion.Rows.Count
For i = nbligne To 1 Step -1
  If Cells(i, 20).Value = "STEP File" Then
    Cells(i, 20).EntireRow.Delete
  ElseIf Cells(20, i).Value = "SOLIDWORKS Drawing Document" Then
    Cells(i, 20).EntireRow.Delete
  ElseIf Cells(20, i).Value = "PDF" Then
    Cells(i, 20).EntireRow.Delete
  End If
Next i

Sub suppression_ligne()
 Dim nbligne As Long, i As Long
 nbligne = Range("B1").CurrentRegion.Rows.Count
    For i = nbligne To 2 Step -1
        If Cells(i, 20) = "STEP File" Or Cells(i, 20).Value = "SOLIDWORKS Drawing Document" _
            Or Cells(i, 20).Value = "PDF" Then
            Rows(i & ":" & i).EntireRow.Delete
        End If
    Next i
End Sub

Sub suppression_ligne()
    Dim nbligne As Long
    Dim valeur As String
    nbligne = Range("B1").CurrentRegion.Rows.Count
    For i = nbligne To 1 Step -1
        valeur = Trim(Cells(i, 20).Value)
        If valeur = "STEP File" Or valeur = "SOLIDWORKS Drawing Document" _
           Or valeur Like "*PDF*" Then Cells(i, 20).EntireRow.Delete
    Next i
End Sub