1 : 2 : 3 :
Substrater ChangeDataSource () ActiveSheet.PivotTables (« PivotTable1 ») .ChangeConnection ActiveWorkbook.Connections (gamme (« B5 »). Valeur) Sous-marin d'extrémité