Les comptes nationaux se présentent sous la forme d'une masse considérable de chiffres reposant sur des concepts parfois peu naturels, ce qui peut leur donner un aspect quelque peu ésotérique. Pourtant, ils permettent de mieux comprendre l'économie d'économie si l'on sait les exploiter. Notre objectif est ici de fournir à tous ceux qui ne sont pas des experts des outils permettant de les analyser simplement.
Dans ce chapitre, nous allons analyser le tableau entrées-sorties symétrique de la France. Pour cela nous allons réaliser un petit modèle de Leontief en nous appuyant sur deux chapitres de ce site :
Le premier chapitre nous fournira les bases pour créer un modèle de Leontief, le second nous donnera les outils informatiques pour le mettre en œuvre.
Le tableau entrées-sorties symétrique français se distingue principalement du tableau entrées-sorties classique par trois points :
Le tableau entrées-sorties symétrique se présente sous la forme suivante :
Le tableau entrées-sorties symétrique permet de nombreuses analyses parmi lesquelles nous choisirons d'étudier comment la demande finale est satisfaite par la valeur ajoutée et les importations.
La demande finale, par exemple la consommation finale des ménages, est satisfaite à la fois par la production et les importations. Mais la production nécessite des consommations intermédiaires en produits locaux et importés. La consommation intermédiaire en produits locaux est satisfaite par une production qui nécessite, elle aussi, des consommations intermédiaires en produits locaux et importés. On voit donc qu'il s'agit d'un processus itératif. Pour le résoudre, le modèle de Leontief repose sur une hypothèse de constance des structures par produit et branche de la production, des importations, des consommations intermédiaires et des emplois finals.
La première étape consiste à récupérer le tableau entrées-sorties symétrique de la France. Pour cela, il faut aller sur le site de l'Insee, puis de taper dans la recherche Tableau entrées-sorties symétrique. Dans la liste qui apparaît, il faut cliquer sur Tableaux de synthèse : TES et TEE puis sur Tableau des entrées-sorties symétrique.
On peut alors télécharger le classeur Excel. Celui-ci a pour nom TEES_2017.xls et se compose de trois feuilles : Présentation du TES symétrique, TES de production domestique, TES des importations. Nous allons sauvegarder ce classeur en tant que classeur prenant en charge les macros, c'est-à-dire avec l'extension .xlsm.
Pour créer notre modèle, nous insérons dans ce classeur deux pages supplémentaires que nous nommons Demande et Resultat. La feuille Demande est destinée à entrer les éléments de la demande finale que nous voulons analyser, elle se présente sous la forme suivante :
La feuille Resultat présente le tableau entrées-sorties symétrique correspondant à la demande finale choisie dans la feuille Demande, elle se présente sous la forme de six blocs correspondant au schéma présenté plus haut.
Nous avons choisi d'élaborer notre modèle en utilisant le langage de programmation Visual Basic pour Excel qui est présenté sur ce site. Le programme ci-dessous peut être copié depuis le navigateur (Edge, FireFox, Chrome, etc.) dans l'éditeur Visual Basic du classeur Excel.
Sub CalculTES()
Dim MatProd(38, 38), MatCIdom(38, 38), MatEmploisDom(38, 11) As Double
Dim DemandeDom(37), DemandeImp(37) As Double
Dim ConsDom(38), ConsImp(38) As Double
Dim MatImport(38, 3), MatCIimport(38, 38), MatEmploisImp(38, 11) As Double
Dim LigneSommeCIdom(37), ColSommeCIdom(37) As Double
Dim LigneSommeCIimp(37), ColSommeCIimp(37) As Double
Dim ProductionBR(37), ProductionPR(37) As Double
Dim StrucLigneProd(37, 37), StrucColCIdom(37, 37), StrucColCIimp(37, 37) As Double
Dim Production(37, 37), CIdom(37, 37), CIimp(37, 37) As Double
Dim TotCI(37), VA(37) As Double
' Saisie du TES
SaisieTES MatProd, MatCIdom, MatEmploisDom, MatImport, MatCIimport, MatEmploisImp, ConsDom, ConsImp, DemandeDom
'Cas où la demande finale est la consommation finale
Set f = ThisWorkbook.Sheets("Demande")
Conso = f.Range("F5")
If IsNumeric(Conso) And Conso <> 0 Then
For i = 1 To 37
DemandeDom(i) = ConsDom(i) * Conso / (ConsDom(38) + ConsImp(38))
DemandeImp(i) = ConsImp(i) * Conso / (ConsDom(38) + ConsImp(38))
Next i
f.Range("D5:D42").ClearContents
End If
' Calcul de la structure de la production par branche
For i = 1 To 37
For j = 1 To 37
StrucLigneProd(i, j) = MatProd(i, j) / MatProd(i, 38)
Next j
Next i
'Calcul de la structure des consommations intermédiaires nationales par produit
For j = 1 To 36
For i = 1 To 37
StrucColCIdom(i, j) = MatCIdom(i, j) / MatProd(38, j)
Next i
Next j
'Calcul de la structure des consommations intermédiaires importées par produit
For j = 1 To 36
For i = 1 To 37
StrucColCIimp(i, j) = MatCIimport(i, j) / MatProd(38, j)
Next i
Next j
Ecart = 1
' Début de la boucle d'itérations
Do While Ecart > 0.001
Pr = Prod
' Calcul de la colonne des sommes des consommations intermédiaire
ColSomme CIdom, ColSommeCIdom
' Calcul de la production totale par produit
For i = 1 To 37
ProductionPR(i) = DemandeDom(i) + ColSommeCIdom(i)
Next i
' Calcul de la matrice de production en ventilant par branche
For j = 1 To 37
For i = 1 To 37
Production(i, j) = ProductionPR(i) * StrucLigneProd(i, j)
Next i
Next j
'Calcul de la production par branche
LigneSomme Production, ProductionBR
'Calcul des consommations intermédiaires nationales
For i = 1 To 37
For j = 1 To 37
CIdom(i, j) = ProductionBR(j) * StrucColCIdom(i, j)
Next j
Next i
Prod = TotLigne(ProductionBR)
Ecart = Abs(Prod - Pr)
'Fin de la boucle
Loop
'Calcul des consommations intermédiaires importées
For i = 1 To 37
For j = 1 To 37
CIimp(i, j) = ProductionBR(j) * StrucColCIimp(i, j)
Next j
Next i
'Calcul de la ligne des totaux des consommations intermédiaires locales
LigneSomme CIdom, LigneSommeCIdom
'Calcul de la colonne des totaux des consommations intermédiaires importées
ColSomme CIimp, ColSommeCIimp
'Calcul de la ligne des totaux des consommations intermédiaires importées
LigneSomme CIimp, LigneSommeCIimp
'Calcul de la consommation intermédiaire totale et de la valeur ajoutée
For j = 1 To 37
TotCI(j) =0
TotCI(j) = LigneSommeCIdom(j) + LigneSommeCIimp(j)
VA(j) = ProductionBR(j) - TotCI(j)
Next j
' Calcul de la valeur ajoutée du secteur primaire et des importations en produits du secteur primaire
VAprim = 0
For j = 1 To 2
VAprim = VAprim + VA(j)
ImpPrim = ImpPrim + LigneSommeCIimp(j) + DemandeImp(j)
Next j
For j = 3 To 18
' Calcul de la valeur ajoutée du secteur secondaire et des importations en produits du secteur secondaire
VAsec = VAsec + VA(j)
ImpSec = ImpSec + LigneSommeCIimp(j) + DemandeImp(j)
Next j
' Calcul de la valeur ajoutée du secteur tertiaire et des importations en produits du secteur tertiaire
For j = 19 To 37
VAter = VAter + VA(j)
ImpTer = ImpTer + LigneSommeCIimp(j) + DemandeImp(j)
Next j
'Affichage
ScreenUpdating = False
Set f = ThisWorkbook.Sheets("Resultat")
'Affichage de la production
f.Range("D8, AO45").ClearContents
For j = 1 To 37
For i = 1 To 37
If Production(i, j) <> 0 Then f.Cells(i + 7, j + 3) = Production(i, j)
Next i
Next j
For j = 1 To 37
If ProductionBR(j) <> 0 Then f.Cells(45, j + 3) = ProductionBR(j)
Next j
For i = 1 To 37
If ProductionPR(i) <> 0 Then f.Cells(i + 7, 41) = ProductionPR(i)
Next i
'Affichage des consommations intermédiaires locales
f.Range("AS8, CD45").ClearContents
For j = 1 To 37
For i = 1 To 37
If CIdom(i, j) <> 0 Then f.Cells(i + 7, j + 44) = CIdom(i, j)
Next i
Next j
For j = 1 To 37
If LigneSommeCIdom(j) <> 0 Then f.Cells(45, j + 44) = LigneSommeCIdom(j)
Next j
For i = 1 To 37
If ColSommeCIdom(i) <> 0 Then f.Cells(i + 7, 82) = ColSommeCIdom(i)
Next i
'Affichage des consommations intermédiaires importées
f.Range("AS54, CD91").ClearContents
For j = 1 To 37
For i = 1 To 37
If CIimp(i, j) <> 0 Then f.Cells(i + 53, j + 44) = CIimp(i, j)
Next i
Next j
For j = 1 To 37
If LigneSommeCIimp(j) <> 0 Then f.Cells(91, j + 44) = LigneSommeCIimp(j)
Next j
For i = 1 To 37
If ColSommeCIimp(i) <> 0 Then f.Cells(i + 53, 82) = ColSommeCIimp(i)
Next i
'Affichage de la demande finale
f.Range("CH8, CH45").ClearContents
For i = 1 To 37
f.Cells(i + 7, 86) = DemandeDom(i)
Next i
f.Range("CH54, CH91").ClearContents
For i = 1 To 37
f.Cells(i + 53, 86) = DemandeImp(i)
Next i
'Affichage des totaux
f.Range("AS93, CD95").ClearContents
For j = 1 To 37
If TotCI(j) <> 0 Then f.Cells(93, j + 44) = TotCI(j)
Next j
For j = 1 To 37
If VA(j) <> 0 Then f.Cells(95, j + 44) = VA(j)
Next j
f.Cells(45, 41) = TotLigne(ProductionBR)
f.Cells(45, 82) = TotLigne(LigneSommeCIdom)
f.Cells(91, 82) = TotLigne(LigneSommeCIimp)
f.Cells(93, 82) = TotLigne(TotCI)
f.Cells(95, 82) = TotLigne(VA)
f.Cells(45, 86) = TotLigne(DemandeDom)
f.Cells(91, 86) = TotLigne(DemandeImp)
f.Cells(93, 86) = f.Cells(45, 86) + f.Cells(91, 86)
'Affichage du résultat dans la feuille Demande
Set g = ThisWorkbook.Sheets("Demande")
g.Range("G10") = TotLigne(VA)
g.Range("G11") = VAprim
g.Range("G12") = VAsec
g.Range("G13") = VAter
g.Range("G14") = TotLigne(LigneSommeCIimp) + TotLigne(DemandeImp)
g.Range("G15") = ImpPrim
g.Range("G16") = ImpSec
g.Range("G17") = ImpTer
ScreenUpdating = True
End Sub
On a ajouté un bouton dans la feuille Demande pour lancer le programme.
Pour déterminer la décomposition de la dépense de consommation finale des ménages en valeur ajoutée et importations, il faut entrer un nombre dans la cellule F5 puis cliquer sur le bouton. Ainsi, si l'on entre une dépense de consommation finale de 1000 on trouve le résultat suivant :
Valeur ajoutée Secteur primaire Secteur secondaire Secteur tertiaire |
749,1 23,1 87,4 638,6 |
Importations Secteur primaire Secteur secondaire Secteur tertiaire |
250,9 12,1 163,8 74,9 |
Total | 1 000,0 |
La valeur ajoutée qui est présentée ici ne correspond pas exactement à la définition officielle de la valeur ajoutée puisque les consommations intermédiaires ne sont pas valorisées aux prix d'acquisition mais aux prix de base.
Si l'on ne met pas de nombre dans la cellule F5, on peut calculer la décomposition en valeur ajoutée et importations d'une demande finale en produits locaux. Par exemple, si l'on entre 1000 comme demande finale en produits chimiques locaux, on obtient le résultat suivant :
Valeur ajoutée Secteur primaire Secteur secondaire Secteur tertiaire |
642,6 10,8 447,3 184,5 |
Importations Secteur primaire Secteur secondaire Secteur tertiaire |
357,4 3,2 329,3 24,8 |
Total | 1000,0 |
On peut également voir l'ensemble du tableau entrées-sorties symétrique détaillé dans la feuille Résultat.
Le tableau ci-dessous montre comment une demande en produits locaux de 100 se décompose en valeur ajoutée et importations :
Produits locaux | Valeur ajoutée | Importations |
AGRICULTURE, SYLVICULTURE ET PÊCHE | 80 | 20 |
INDUSTRIES EXTRACTIVES | 75 | 25 |
FABRICATION DE DENRÉES ALIMENTAIRES, DE BOISSONS ET DE PRODUITS À BASE DE TABAC | 75 | 25 |
FABRICATION DE TEXTILES, INDUSTRIES DE L'HABILLEMENT, INDUSTRIE DU CUIR ET DE LA CHAUSSURE | 63 | 37 |
TRAVAIL DU BOIS, INDUSTRIES DU PAPIER ET IMPRIMERIE | 70 | 30 |
COKÉFACTION ET RAFFINAGE | 27 | 73 |
INDUSTRIE CHIMIQUE | 64 | 36 |
INDUSTRIE PHARMACEUTIQUE | 72 | 28 |
FABRICATION DE PRODUITS EN CAOUTCHOUC, EN PLASTIQUE ET D'AUTRES PRODUITS MINÉRAUX NON MÉTALLIQUES | 69 | 31 |
MÉTALLURGIE ET FABRICATION DE PRODUITS MÉTALLIQUES, HORS MACHINES ET ÉQUIPEMENTS | 65 | 35 |
FABRICATION DE PRODUITS INFORMATIQUES, ÉLECTRONIQUES ET OPTIQUES | 70 | 30 |
FABRICATION D ÉQUIPEMENTS ÉLECTRIQUES | 61 | 39 |
FABRICATION DE MACHINES ET ÉQUIPEMENTS N.C.A. | 64 | 36 |
FABRICATION DE MATÉRIELS DE TRANSPORT | 52 | 48 |
AUTRES INDUSTRIES MANUFACTURIÈRES ; RÉPARATION ET INSTALLATION DE MACHINES ET D'ÉQUIPEMENTS | 70 | 30 |
PRODUCTION ET DISTRIBUTION D'ÉLECTRICITÉ, DE GAZ, DE VAPEUR ET D'AIR CONDITIONNÉ | 70 | 30 |
PRODUCTION ET DISTRIBUTION D'EAU ; ASSAINISSEMENT, GESTION DES DÉCHETS ET DÉPOLLUTION | 83 | 17 |
CONSTRUCTION | 78 | 22 |
COMMERCE ; RÉPARATION D'AUTOMOBILES ET DE MOTOCYCLES | 85 | 15 |
TRANSPORTS ET ENTREPOSAGE | 83 | 17 |
HÉBERGEMENT ET RESTAURATION | 85 | 15 |
ÉDITION, AUDIOVISUEL ET DIFFUSION | 82 | 18 |
TÉLÉCOMMUNICATIONS | 83 | 17 |
ACTIVITÉS INFORMATIQUES ET SERVICES D'INFORMATION | 89 | 11 |
ACTIVITÉS FINANCIÈRES ET D'ASSURANCE | 90 | 10 |
ACTIVITÉS IMMOBILIÈRES | 97 | 3 |
ACTIVITÉS JURIDIQUES, COMPTABLES, DE GESTION, D'ARCHITECTURE, D'INGÉNIERIE, DE CONTRÔLE ET D'ANALYSES TECHNIQUES | 87 | 13 |
RECHERCHE-DÉVELOPPEMENT SCIENTIFIQUE | 86 | 14 |
AUTRES ACTIVITÉS SPÉCIALISÉES, SCIENTIFIQUES ET TECHNIQUES | 83 | 17 |
ACTIVITÉS DE SERVICES ADMINISTRATIFS ET DE SOUTIEN | 89 | 11 |
ADMINISTRATION PUBLIQUE ET DÉFENSE - SÉCURITÉ SOCIALE OBLIGATOIRE | 94 | 6 |
ENSEIGNEMENT | 95 | 5 |
ACTIVITÉS POUR LA SANTÉ HUMAINE | 91 | 9 |
HÉBERGEMENT MÉDICO-SOCIAL ET SOCIAL ET ACTION SOCIALE SANS HÉBERGEMENT | 95 | 5 |
ARTS, SPECTACLES ET ACTIVITÉS RÉCRÉATIVES | 87 | 13 |
AUTRES ACTIVITÉS DE SERVICES | 88 | 12 |
ACTIVITÉS DES MÉNAGES EN TANT QU'EMPLOYEURS ; ACTIVITÉS INDIFFÉRENCIÉES DES MÉNAGES EN TANT QUE PRODUCTEURS DE BIENS ET SERVICES POUR USAGE PROPRE | 100 | 0 |
Auteur : Francis Malherbe