Private Sub ComboBoxnumero_Change()
Set c = Sheets("Détail").Columns(1).Find(ComboBoxnumero, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
txtentreprise = c.Offset(0, 1)
txtintitule = c.Offset(0, 3)
txtdatedebut = c.Offset(0, 6)
txtdatefin = c.Offset(0, 7)
End If
End Sub