Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
On Error Resume Next
Dim Ligne As Long
Dim i As Integer
Dim PageActuelle As Date
Dim PageActuelle2 As Date
Dim PageActuelle3 As Date
Dim PageActuelle4 As Date
Dim PageActuelle5 As Date
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 2
ComboBox2 = Ws.Cells(Ligne, "B")
ComboBox3 = Ws.Cells(Ligne, "AB")
ComboBox4 = Ws.Cells(Ligne, "AA")
ComboBox5 = Ws.Cells(Ligne, "X")
ComboBox7 = Ws.Cells(Ligne, "Z")
For i = 1 To 27
Me.Controls("TextBox" & i) = Ws.Cells(Ligne, i + 2)
Next i
PageActuelle = Me.MultiPage1.Value
Me.MultiPage1.Value = 2 'Index de la page qui contient le DTPicker
DTPicker1.Value = Ws.Cells(Ligne, "Y")
Me.MultiPage1.Value = PageActuelle
PageActuelle2 = Me.MultiPage1.Value
Me.MultiPage1.Value = 1 'Index de la page qui contient le DTPicker
DTPicker2.Value = Ws.Cells(Ligne, "U")
Me.MultiPage1.Value = PageActuelle2
PageActuelle4 = Me.MultiPage1.Value
Me.MultiPage1.Value = 1 'Index de la page qui contient le DTPicker
DTPicker4.Value = Ws.Cells(Ligne, "W")
Me.MultiPage1.Value = PageActuelle4
PageActuelle5 = Me.MultiPage1.Value
Me.MultiPage1.Value = 1 'Index de la page qui contient le DTPicker
DTPicker5.Value = Ws.Cells(Ligne, "V")
Me.MultiPage1.Value = PageActuelle5
Application.ScreenUpdating = True
End Sub