type VBA

Public Type MyType
    MyVar1 As Integer
    MaVar2 As Integer
End Type
'-----------------------------------------------------
Dim typo As MyType
typo.MyVar1 = 2
VasteMonde