Recherche VBA d'un contenu de cellule

Sub test()
Dim Expression As String
Expression = "mo"  ' ou Userform1.TextBox1.Value
With Feuil3 ' Worksheets("Feuil3")
    With .Range("A1:A10")
        .AutoFilter field:=1, Criteria1:="*" & Expression & "*"
        'Copie l'étiquette de colonne + les données filtrées
        .SpecialCells(xlCellTypeVisible).Copy _
                    Worksheets("Feuil2").Range("A1")
        'Pour copier seulement les données sans l'étiquette de colonne
        .Offset(1).Resize(.Rows.Count - 1). _
            SpecialCells(xlCellTypeVisible).Copy _
                Worksheets("Feuil2").Range("A1")
        'enlève le filtre
        .AutoFilter
    End With
End With
End Sub
'---------------------------------------------------

Option Compare Text
'----------------------------------
Sub test()
Dim Expression As String, DerLig As Long
Dim Rg As Range, DerCol As Integer
Dim Ligne As Long, Trouve As Range, C As Range

'Selon la manière dont tu définis l'expression
'à rechercher le résultat va différer.
'Peut être : "ose", " ose", "ose ", " ose "
Expression = "ose"

With Feuil3 ' Worksheets("Feuil3")
    If Not IsEmpty(.UsedRange) Then
        DerLig = .Cells.Find(What:="*", _
                LookIn:=xlFormulas, _
                SearchOrder:=xlByRows, _
                SearchDirection:=xlPrevious).Row

        DerCol = .Cells.Find(What:="*", _
                LookIn:=xlFormulas, _
                SearchOrder:=xlByColumns, _
                SearchDirection:=xlPrevious).Column
                
        Set Rg = .Range("A1", .Cells(DerLig, DerCol))
    End If
End With

For Each C In Rg.Rows
    With C
        Set Trouve = .Find(What:=Expression, _
                LookIn:=xlValues, lookat:=xlPart, _
                SearchOrder:=xlByRows)

        If Not Trouve Is Nothing Then
            'Copie vers la feuille Feuil2
            With Feuil2
                DerLig = .Cells.Find(What:="*", _
                    LookIn:=xlFormulas, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlPrevious).Row + 1
                Trouve.EntireRow.Copy .Range("A" & DerLig)
            End With
        End If
    End With
Next
'----------------------------------