Je voudrais sélectionner des lignes répondant à un critère donné pour les copier en bloc sur une autre feuille...

En partant du principe que tout ça se passe dans la Feuille "Feuil1", que le nombre de lignes à examiner soit 20 et que le critère soit "MonCritère" à vérifier dans la cellule "A" de chaque ligne (à remplacer par tes valeurs donc) :

sub JeSelectionne()
 i = 1
 NombreLignes = 20
 While i < NombreLignes + 1
  If Cells(i, 1) = MonCritere Then
   MesLignes = MesLignes & i & ":" & i & ","
  End If
  i = i + 1
 Wend
 
 MesLignes = Left(MesLignes, Len(MesLignes) - 1)
 
 Sheets("Feuil1").Range(MesLignes).Select
 
 end sub

Attention tout de même aux limites du nombre de lignes distinctes admises dans la sélection multiple (255 ?)