Supprimer ligne ou colonne selon condition VBA

Option Explicit
Const titrecolonne As String = "enfant,genre"
Const titreligne As String = "chap,leon"
Private Sub dd()
Dim cel As Range, wb As Worksheet
Dim titrescolonne, titresligne, titre
Set wb = ThisWorkbook.Sheets("Data1")
titrescolonne = Split(titrecolonne, ",")
titresligne = Split(titreligne, ",")
For Each cel In Intersect(wb.UsedRange, wb.Rows(1))
    For Each titre In titrescolonne
        If UCase(cel) = UCase(titre) Then
            cel.EntireColumn.Delete
            Exit For
        End If
    Next titre
Next cel
For Each cel In Intersect(wb.UsedRange, wb.Columns(1))
    For Each titre In titresligne
        If UCase(cel) = UCase(titre) Then
            cel.EntireRow.Delete
            Exit For
        End If
    Next titre
Next cel
End Sub