Private Sub CodeList_Click()
'Remplir les champs du formulaire lors de la sélection de l'établissement choisi
Range("Sheet1!A6").Select
ActiveCell.Offset(CodeList.ListIndex, 0).Select
'-- transfert Base de Données --> Formulaire
Code = ActiveCell.Offset(0, 0).Value
Etb = ActiveCell.Offset(0, 1).Value
Annee = ActiveCell.Offset(0, 2).Value
Class = ActiveCell.Offset(0, 3).Value
Clef = ActiveCell.Offset(0, 4).Value
PVX = ActiveCell.Offset(0, 5).Value
SN = ActiveCell.Offset(0, 6).Value
VG = ActiveCell.Offset(0, 7).Value
User = ActiveCell.Offset(0, 8).Value
Temporaire = ActiveCell.Offset(0, 9).Value
System = ActiveCell.Offset(0, 10).Value
Permanent = ActiveCell.Offset(0, 11).Value
End Sub