Chercher un mot spécifique sur une feuille qui contient des tableau et copier le

Sub Actualiser()
    Dim ws As Worksheet
    Dim aCell As Range

    Set ws = ThisWorkbook.Sheets("DATA")

    With ws
        Set aCell = .Columns(1).Find(What:="Reçus", LookIn:=xlValues, _
                    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                    MatchCase:=False, SearchFormat:=False)
                    
           If Not aCell Is Nothing Then
        aCell.Select
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets("RECU").Select
        Range("B1").Select
        ActiveSheet.Paste
        Else
            MsgBox "Contacter Hicham Abbouz"
        End If
    End With
End Sub