Private Sub ComboBox1_click()
EnregBD = Me.ComboBox1.ListIndex + 1
LigneEnreg = Me.ComboBox1.ListIndex + RngBD.Row
Me.Enreg = LigneEnreg - 4
If TblBD(EnregBD, 7) = "OUI" Then Me.CheckBox1 = True
If TblBD(EnregBD, 7) = "NON" Then Me.CheckBox1 = False
If TblBD(EnregBD, 7) = "" Then Me.CheckBox1 = False
If TblBD(EnregBD, 8) = "OUI" Then Me.CheckBox2 = True
If TblBD(EnregBD, 8) = "NON" Then Me.CheckBox2 = False
If TblBD(EnregBD, 8) = "" Then Me.CheckBox2 = False
If TblBD(EnregBD, 9) = "OUI" Then Me.CheckBox3 = True
If TblBD(EnregBD, 9) = "NON" Then Me.CheckBox3 = False
If TblBD(EnregBD, 9) = "" Then Me.CheckBox3 = False
If TblBD(EnregBD, 10) = "OUI" Then Me.CheckBox4 = True
If TblBD(EnregBD, 10) = "NON" Then Me.CheckBox4 = False
If TblBD(EnregBD, 10) = "" Then Me.CheckBox4 = False
If TblBD(EnregBD, 11) = "OUI" Then Me.CheckBox5 = True
If TblBD(EnregBD, 11) = "NON" Then Me.CheckBox5 = False
If TblBD(EnregBD, 11) = "" Then Me.CheckBox5 = False
Me.TextBox1 = TblBD(EnregBD, 1)
Me.TextBox2 = TblBD(EnregBD, 2)
Me.TextBox3 = TblBD(EnregBD, 3)
Me.TextBox4 = TblBD(EnregBD, 4)
Me.TextBox5 = TblBD(EnregBD, 5)
If ActiveWorkbook.CodeName <> "Feuil3" Or ActiveWorkbook.CodeName <> "Feuil5" Or ActiveWorkbook.CodeName <> "Feuil18" Then Me.TextBox6 = TblBD(EnregBD, 6)
Me.TextBox7 = TblBD(EnregBD, 12)
Me.Chemin = TblBD(EnregBD, 16)
If Dir(Me.Chemin) <> "" Then
Me.Image1.Picture = LoadPicture(Me.Chemin)
Else
Me.Image1.Picture = LoadPicture
End If
End Sub