Voici une macro assez simple pour réorganiser les données
Sub Reorganiser()
With Sheets("Enseignants-Chercheurs PR + MCF")
derL = .Cells(Rows.Count, 1).End(xlUp).Row
derC = .Cells(1, Columns.Count).End(xlToLeft).Column
Range("A1").CurrentRegion.Offset(1, 0).ClearContents
k = 2
For i = 14 To derC - 1 Step 2
For j = 2 To derL
Cells(k, 1) = .Cells(j, "A")
Cells(k, 2) = .Cells(j, "B")
Cells(k, 3) = .Cells(1, i)
Cells(k, 4) = .Cells(j, i)
Cells(k, 5) = .Cells(j, i + 1)
k = k + 1
Next
Next
End With
Sheets("Extract EC").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
End Sub