VBA :saisie d'un code postal= ville correspondante

Bonjour, je débute en VBA et je souhaiterais écrire une procédure permettant d'afficher automatiquent le nom de la ville en B5, après avoir saisi le code postal en A5.

ex : Cellule A5-->35000 / Cellule B5 (via procédure VBA) --> Rennes
ex : Cellule A5-->22000 / Cellule B5 (via procédure VBA) --> St Brieuc

Je suis sur que cela ne doit pas être compliqué, mais il y a des erreurs !

----------------------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim CP As String
Dim Ville As String
Set CelluleA5 = Range("A5").Value

If Target = Range("A5") Then
Select Case CelluleA5
Case "35000"
Ville = Rennes
Case "22000"
Ville = SaintBrieuc
Case "56000"
Ville = Vannes
End Select
Range("B5").Value = Ville
End If

End Sub
----------------------------------------------------------------------------------------

Pièce jointe : fichier excel étant la base de mon travail

MERCI BEAUCOUP