En effet c'est comme apprendre une langue étrangère...
Option Explicit
Private Sub Worksheet_Activate()
Dim TSvg(), LS As Long, TRés(), LR As Long, M As Long 'Ligne de déclaration
Sauvegarde
TSvg = [TabSvg].Value: LS = 1 ' Attribue une valeur dans le tableau TabSvg dan sla feuille...