Petite aide macro excel vba

Bonjour à tous,
J'essaye de faire une macro or je bloque à la condition de la fonction If...Then....Else...End.... if...
En effet, c'est d'après une TCD que ma section se fait.
Si tu voit Rh, tu fait les différentes fonctions (qui marchent). Or, si tu voit pas Rh tu passe au prochain service.

Pour le moment, j'ai sa : If (ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Service").CurrentPage = "Rh") Then

Merci