VBA pb pr extraire & copier 1 partie de texte

Bonjour

J’aurais besoin d’aide pour creer une macro qui puisse chercher dans une plage de cellule une serie de lettre et ensuite extraire cette ligne avant de passer a la ligne suivante.

Par exemple, je cherche a extraire toutes les lignes qui contiennent les lettres EUR dans une colonne bien specifique qui peut contenir des textes tels que EUR/AUD, LD-EUR, EURAUD etc…

Merci d’avance pour votre retour,

Pour le moment je n’ai reussi qu’à créer une macro qui puisse trouver et copier de facon exaustive un texte exact et non pas une partir du texte
Cf :

'**Selection & copy sur une nouvelle feuille des donnees voulues

Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "USD"

Sheets("Data").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(1)).Select

For Each Rw In Selection.Rows
Ligne = Rw.Row

If Rw.Cells(1, 10).Value = "LD-USD" Or Rw.Cells(1, 10).Value = "AUD/USD" Or Rw.Cells(1, 10).Value = "EUR/USD" Or Rw.Cells(1, 10).Value = "GBP/USD" _
Or Rw.Cells(1, 10).Value = "USD/JPY" Or Rw.Cells(1, 10).Value = "NZD/USD" Or Rw.Cells(1, 10).Value = "USD/HKD" Or Rw.Cells(1, 10).Value = "USD/SGD" Then

Rw.Select
Rw.Copy Destination:=Worksheets("USD").Cells(Ligne, 2).EntireRow

End If

Next Rw