Private Sub Worksheet_Activate()
Dim Choix As String
Choix = InputBox("Choisir : N° Enq, Mat, NOM, PRENOM", "Choisir le champ de tri", "N° Enq")
ActiveWorkbook.RefreshAll
On Error Resume Next
With ActiveSheet.PivotTables("monTCD").PivotFields(Choix)
.Orientation = xlRowField
.Position = 1
End With
End Sub