prob. macro recherche

'macro qui se lance à chanque changement d'une cellule dans la feuille
'Target représente la cellule qui vient de changer
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cellRecherche As Range, premAdresse As String
    
    'si ce n'est pas la cellule F3 qui vient du changer, quitter la macro
    If Not Target(1, 1).Address = "$F$3" Then Exit Sub
    
    'nettoyer la zone d'affichage de la racherche
    Range(Range("B6"), Range("B6").End(xlDown)).Resize(, 7).ClearContents
    
    With ThisWorkbook.Sheets("Feuil2")
        'lancer la recherche
        Set cellRecherche = .Columns("B").Find(Target.Text, , xlValues, xlWhole, , , False)
        'si rien n'est trouvé, quitter la macro
        If cellRecherche Is Nothing Then Exit Sub
        premAdresse = cellRecherche.Address
        Do
            'copier la ligne dans "Feuil1"
            cellRecherche.EntireRow.Copy Range("B" & Rows.Count).End(xlUp).Offset(1, -1)
            'chercher la cellule suivante
            Set cellRecherche = .Columns("B").FindNext(cellRecherche)
        Loop Until cellRecherche.Address = premAdresse
    End With
End Sub

'macro qui se lance à chanque changement d'une cellule dans la feuille
'Target représente la cellule qui vient de changer
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cellRecherche As Range, premAdresse As String
    
    'si ce n'est pas la cellule F3 qui vient du changer, quitter la macro
    If Not Target(1, 1).Address = "$F$3" Then Exit Sub
    
    'nettoyer la zone d'affichage de la racherche
    Range(Range("B6"), Range("B6").End(xlDown)).Resize(, 7).ClearContents
    
[B]    'si la cellule est vide, quitter la macro
    If Target.Text = vbNullString Then Exit Sub
[/B]    
    With ThisWorkbook.Sheets("Feuil2")
        'lancer la recherche
        Set cellRecherche = .Columns("B").Find(Target.Text, , xlValues, xlWhole, , , False)
        'si rien n'est trouvé, quitter la macro
        If cellRecherche Is Nothing Then Exit Sub
        premAdresse = cellRecherche.Address
        Do
            'copier la ligne dans "Feuil1"
            cellRecherche.EntireRow.Copy Range("B" & Rows.Count).End(xlUp).Offset(1, -1)
            'chercher la cellule suivante
            Set cellRecherche = .Columns("B").FindNext(cellRecherche)
        Loop Until cellRecherche.Address = premAdresse
    End With
End Sub