Je voudrais par macro sélectionner toutes les lignes répondant à un critère donné. Ces lignes sont discontinues.

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 ?)