'------------------------------------------------
'[A2] = Me.CodePostal.Column(1) 'ecrit dans la cellule de la feuille Active
'[B2] = Me.CodePostal.Column(0) 'ecrit dans la cellule de la feuille Active
Sh.Range("A2") = Me.CodePostal.Column(1)
Sh.Range("B2") = Me.CodePostal.Column(0)
'------------------------------------------------