VBA verticalalignment

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