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