XL 2010 Sélectionner les cellules concernées et non la ligne entière

Sub recherche_et_sélection_USA()
    Dim C As Range, lignes As Range

    Dim firstAddress As String

    With Sheets("Feuil1")
        .Activate
        'On précise la colonne de recherche sinon la recherche se fait dans toute la feuille
        With .Range("B:B")

            Set C = .Find(what:="USA", LookAt:=xlWhole)

            If Not C Is Nothing Then
                firstAddress = C.Address
                Set lignes = .Rows(C.Row).Resize(, 4)
                Do
                    Set lignes = Application.Union(lignes, .Rows(C.Row).Resize(, 4))
                    Set C = .FindNext(C)
                Loop While Not C Is Nothing And C.Address <> firstAddress
            End If
        End With
    End With

    If Not lignes Is Nothing Then lignes.Select

End Sub

If Not lignes Is Nothing Then Intersect(lignes, [A:B]).Select

Sub recherche_et_sélection_USA()
Sheets("Feuil1").Activate
On Error Resume Next
With [A1].CurrentRegion
    With .Offset(1).Resize(.Rows.Count - 1)
        Union(.Rows(0), .Cells).AutoFilter 2, "USA" 'filtre automatique
        .SpecialCells(xlCellTypeVisible).Select
    End With
    .AutoFilter
End With
End Sub