VBA supprimer colonne

Sub DeleteRowAndColumn()

Dim nom As String
Dim derLigne As Long
'derLigne = ThisWorkbook.Sheets("Données").Range("A4").End(xlUp).Row + 1

For Each Cell In Sheets("Données").Range("A4:A7")
    If Cell <> "x" Then
        nom = Cell.Offset(0, 1).Value
        MsgBox nom
        Cell.EntireRow.Delete
    With Range("A2:F2")
        Set nomColonne = .Cells.Find(nom)
        nomColonne.EntireColumn.Delete
    End With
    End If
Next Cell

End Sub

Sub DeleteRowAndColumn()

For i = Range("B65535").End(xlUp).Row To 4 Step -1
    If Cells(i, 1) <> "x" Then
        nom = Cells(i, 2)
        Rows(i).EntireRow.Delete
    For Each cellule In Range("C2:F2")
        If cellule = nom Then Columns(cellule.Column).EntireColumn.Delete
    Next cellule
    End If
Next i

End Sub

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
With Sheets("Données")
    .Range("A1", .UsedRange).Copy [A1]
End With
On Error Resume Next 'si aucune SpecialCell
Range("A4:A" & Rows.Count).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
With Rows(2).SpecialCells(xlCellTypeConstants).Offset(1) 'ligne 3 auxiliaire
    .Formula = "=1/ISTEXT(INDEX($A:$A,MATCH(C2,$B:$B,0)))"
    .SpecialCells(xlCellTypeFormulas, 16).EntireColumn.Delete
    .ClearContents
End With
End Sub