Private Sub ComboBox2_DropButtonClick()
If ComboBox1 = "Chauffeurs 501" Then
With Sheets("Listes")
Plage = .Range("B2:B" & .Range("B65536").End(xlUp).Row).Address
End With
ComboBox2.RowSource = "Listes!" & Plage
End If
If ComboBox1 = "Chauffeurs 1991-P" Then
With Sheets("Listes")
Plage = .Range("C2:C" & .Range("C65536").End(xlUp).Row).Address
End With
ComboBox2.RowSource = "Listes!" & Plage
End If
If ComboBox1 = "Banc" Then
With Sheets("Listes")
Plage = .Range("D2:D" & .Range("D65536").End(xlUp).Row).Address
End With
ComboBox2.RowSource = "Listes!" & Plage
End If
If ComboBox1 = "Chauffeurs 501" Then
TextBox7 = (DTPicker1.Value) + 180
End If
If ComboBox1 = "Chauffeurs 1991-P" Then
TextBox7 = (DTPicker1.Value) + 270
End If
End Sub