remplacement

Bonsoir à tous !
Je profite d'un moment de répis au boulot pour vous demander conseil...
J'ai un tableau de données avec des infos sur les patients du service ou je travaille, entre la pathologie pour laquelle le patient est entré dans notre service.
Pour nos stats, j'aimerais regrouper les pathologies par groupes...(voir dans mon fichier exemple)
j'ai trouvé une macro "remplace" mais qui remplace partout dans la feuille alors que la, il me faudrait une fonction du genre de celle ci :

Function FormatMois(Cible As Integer) As String
Select Case Cible
Case 1
FormatMois = "Janvier"
Case 2
FormatMois = "Février"
Case 3
FormatMois = "Mars"
Case 4
FormatMois = "Avril"
Case 5
FormatMois = "Mai"
Case 6
FormatMois = "Juin"
Case 7
FormatMois = "Juillet"
Case 8
FormatMois = "Août"
Case 9
FormatMois = "Septembre"
Case 10
FormatMois = "Octobre"
Case 11
FormatMois = "Novembre"
Case 12
FormatMois = "Décembre"
End Select
End Function

voila merci de votre aide !
bonne nuit ! (moi je retourne bosser ...)

Guillaume

Bonjour Guillaume

Un petit essai cliquer sur cellule sous pathologie, le groupe s'inscrit et les stats (début ....) se font ...
Bon courage

@+
GD

Merci beaucoup Gérard malgré l'heure tardive !!!
Ca m'a l'air de fonctionner parfaitement mais je ne trouve pas quelle zone tu as nommée base et patho...
désolé j'ai un peu de mal a cette heure ci...

D'ores et deja MERCI !!!

Salut Guims !

Après qq heures de repos mérité tu trouveras base et et patho en cliquant dans la zone Nom qui se trouve completement à gauche dans la barre de formule. A gauche d'insérer une fonction.
Sinon c'est B1:C60 et B1:B60. C'est plus pratique ainsi car si tu veux allonger cette liste tu insères une ou plusieurs lignes dans cette plage et le nom ne change pas. Pourquoi se fatiguer inutilement ?

@ + si besoin autre

GD

Impec !
Merci beaucoup !!!