suppression ligne si contient la date

Option Explicit
Sub test()
Dim x As Range
Set x = Sheets("Recap").Columns(1).Find(Sheets("Reception").Range("B2"), , xlFormulas, xlWhole, , , False)
If Not x Is Nothing Then x.EntireRow.Delete
End Sub

Option Explicit
Sub test()
Dim x As Range
With Sheets("Recap").Columns(1)
    Set x = .Find(Sheets("Reception").Range("B2"), , xlFormulas, xlWhole, , , False)
    If Not x Is Nothing Then
        Do
            Rows(x.Row).Delete
            Set x = .FindNext
        Loop While Not x Is Nothing
    End If
End With
With Sheets("Recap")
    .Range("A4").CurrentRegion.Sort .Range("A4"), xlAscending, Header:=xlYes
End With
End Sub

Option Explicit
Sub test()
Dim x As Range
With Sheets("Recap")
    Set x = .Columns(1).Find(Sheets("Reception").Range("B2"), , xlFormulas, xlWhole, , , False)
    If Not x Is Nothing Then
        Do
            .Rows(x.Row).Delete
            Set x = .Columns(1).FindNext
        Loop While Not x Is Nothing
    End If
    .Range("A4").CurrentRegion.Sort .Range("A4"), xlAscending, Header:=xlYes
End With
End Sub

Sub Supprime()
    With Sheets("Recap")
        With .Range("a5", .Range("a" & Rows.Count).End(xlUp)).Offset(, 7)
            .Formula = "=match(a5,'Reception'!$b$2,0)"
            .AutoFilter 1, "<>#N/A"
            .EntireRow.Delete
        End With
        .Columns("h").Delete
        .Range("A4").CurrentRegion.Sort .Range("A4"), xlAscending, Header:=xlYes
    End With
End Sub