VBA -Vertikale
Range.VerticalAlignment = VAlign_code
'Possible values for VAlign_code
' xlVAlignBottom
' xlVAlignCenter
' xlVAlignDistributed
' xlVAlignJustify
' xlVAlignTop
VasteMonde