Trouver certains caractères dans une cellule

Bonjour, 
Pardonnez moi pour mes questions idiotes mais je débute avec VBA. Merci d'être indulgent. J'ai cherché des heures et des heures avant d'oser poser une question, mais voila, je me résouts à demander de l'aide.

J'ai deux questions:
1) Dans un select case, peut on entrer plusieurs valeurs dans le même case?

Par exemple, j'ai dû faire:

Case "Paris"
          instructions
Case "Nice"
          instructions


Seulement, mes instructions sont exactement les mêmes.
Je voudrais donc faire

Case "Nice" or "Paris"
Afin de simplifier mon code.
Est ce possible?

2) Je cherche dans une colonne définie le lieu ou des professionnels  travaillent.
   Hors, dans les cellules de cette colonnes sont inscrits le lieu et la société.
   Mon programme ne fonctionne que si ma cellule ne contient que le mot "Paris" par exemple.
   Si la cellule contient "Société générale, Paris", alors la cellule n'est pas détectée dans mon Select Case.

  Voici mon code:

Cells.Find("Lieu").Select
l = Selection.Column
   For j = 4 To NbrLign
             Select Case Cells(j, l)
                     Case "Paris"
                        instructions
                     Case "Paris"
                        instructions
              End Select
    Next



Comment puis-je parvenir à mes fins?
J'ai trouvé sur internet un morceau de code mais je ne parviens pas à l'adapter. De plus, il contient un if... then.
Cela me semble donc incompatible avec mon Select case.


 If Not InStr(1, Cells(j, l).Value, "Paris") > 0

Exit Sub

J'espère avoir été clair. Je vous remercie pour votre aide.
A bientôt.
planturge