Private Sub GarnirChamps()
ExécutionIntempestive = True
Me.TBattention.Text = VLgn(1, 4)
Me.TBadresse.Text = VLgn(1, 5)
Me.TBcomplement.Text = VLgn(1, 6)
Me.CBcp.Text = VLgn(1, 7)
Me.CBville.Text = VLgn(1, 8)
Me.TBtele.Text = VLgn(1, 9)
Me.TBport.Text = VLgn(1, 10)
Me.TBfax.Text = VLgn(1, 11)
Me.TBmail.Text = VLgn(1, 12)
ExécutionIntempestive = False
HabiliterBoutons
End Sub