Public Function GetPersonneByCity(AChercher As String, ZoneRecherche As Range) As String
Dim Cellule As Range
For Each Cellule In ZoneRecherche
If Cellule = AChercher Then
GetPersonneByCity = GetPersonneByCity & vbCrLf & Cellule.Offset(0, -2) & " ; " _
& Cellule.Offset(0, -2) & " ; " & Cellule & " ; " & Cellule.Offset(0, 1)
End If
Next Cellule
If GetPersonneByCity <> "" Then
GetPersonneByCity = Right(GetPersonneByCity, Len(GetPersonneByCity) - 1)
End If
End Function