Copier des lignes d'une feuille a une autre en fonction du contenu apha d'une cellule

Bonjour,

je dois traiter un EXPORT d'un ERP du "carnet de commande" soit de 6000 à 9000 lignes sur 113 colonnes.
Grâce à une exploration des forums et aux connaissances des collègues. je suis arrivé grâce aux macros, à traiter et synthétiser par des sélections de colonnes et de lignes en fonction de date de livraison (> ou <), de date de réapprovisionnement, de disponibilité des produits sur nos différents sites , etc, à recopier sur les feuilles du classeur uniquement ce que je dois traiter (cde en retard, rupture, etc...)

exemple :
Sheets("Base de donnée").Activate


If Cells(i, 18).Value >= a And Cells(i, 18).Value <= b Then

If Cells(i, 112).Value = "Cde compl" And Cells(i, 10).Value > Cells(i, 21).Value And Cells(i, 23).Value = "OK" And Cells(i, 15).Value <> "Ordre de" Then

j = j + 1
Cells(i, 3).Select
Selection.Copy
Sheets("Blocage cmde complète").Activate
Cells(j, 1).Select
Selection.PasteSpecial
Sheets("Base de donnée").Activate
Cells(i, 18).Select
Selection.Copy
Sheets("Blocage cmde complète").Activate
Cells(j, 2).Select
Selection.PasteSpecial


mais maintenant mon problème , c' est de recopier les cellules qui commencent par "PRS" ou "SAV"
pour copier les commandes par catégorie (pré saison, service après vente,...)
exemple PRS130000124

J'ai écrit :

Sub COPIEPRS()
Sheets("feuil1").Activate

For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
A = Mid(i, 1, 3)

If Cells(i, 1).Value = A = "PRS" Then Cells(i, 1).EntireRow.Copy


Sheets("FEUIL2").Activate
Cells(i, 1).Select
ActiveCell.EntireRow.PasteSpecial
Next
End Sub

mais cela ne fonctionne pas (cela me copie du vba dans une fenêtre texte).

pouvez vous m'aider?
merci