Private Sub GarnirChamps()
Me.TBattention.Text = VLgn(1, 6)
Me.TBadresse.Text = VLgn(1, 7)
Me.TBcomplement.Text = VLgn(1, 8)
Me.CBcp.Text = VLgn(1, 9)
Me.CBville.Text = VLgn(1, 10)
Me.TBtele.Text = VLgn(1, 11)
Me.TBport.Text = VLgn(1, 12)
Me.TBfax.Text = VLgn(1, 13)
Me.TBmail.Text = VLgn(1, 14)
End Sub