Aide pour écrire une condition enVBA

Bonjour,

J'ai un problème pour écrire une condition sur VBA je pense que la syntaxe est bonne mais la macro ne me donne pas le résultat que je veux voir apparaitre

Ex: je travaille sur une restitution de données extraites d'un outil de système d'information de ressources humaines pour la formation.
je veux dire que si un programme = FC10DRH, la direction de ce programme sera égale à DRH quelque soit le métier de l'agent sauf quand le métier de l'agent est "Informatique" ou "Télécommunication". C'est-à-dire que si le métier de l'agent est l'un des 2, la direction sera = DSI

j'ai écrit en VBA:
Select Case Programme

Case "FC10DRH"
Direction = "DRH"
Case "FC10BBB"
Direction = "XXX" ect
end select

et pour la condition j'ai écrit

If Programme = "FC10DRH" Then
If Métieragent = "informatique" Or Métieragent = "Télécommunication" Then
Direction = "DSI"
Else
Direction = "DRH"
End If

Lorsque j'exécute la macro, le résultat de la direction est toujours DRH même si le métier de l'agent est informatique ou télécommunication

je voudrais voir :

Programme métier agent Direction
FC10DRH RH DRH
FC10DRH SEC DRH
FC10DRH INF DSI
FC10DRH Tél DSI

Pouvez vous m'aider svp, je vous en serai très reconnaissante
merci beaucoup