Bonjour,
Dans un 1er temps, il faudrait nommer la plage où tu renseigne la région et nomme la "valeur".
Vérifie le nom du Tableau croisé dynamique, clique droit sur le tableau puis option sinon corrige le nom dans la macro ci-dessous en bleu.
Puis crée une macro :
Sub Macro2()
Dim result As String
result = Range("valeur" ).Value
ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
"Collaborateur" ).CurrentPage = result
End Sub
En espèrant t'avoir aidé