Private Sub TextBox9_Change()
Dim c As Range ' Recherche dans la feuille HEUREE les horaires
Set c = Sheets("HEURE").Range("B:B").Cells.Find(What:=Me.TextBox9)
If Not c Is Nothing Then Me.TextBox67 = c.Offset(0, 2).Value
If Not c Is Nothing Then Me.TextBox68 = c.Offset(0, 4).Value
If Not c Is Nothing Then Me.TextBox69 = c.Offset(1, 2).Value
If Not c Is Nothing Then Me.TextBox70 = c.Offset(1, 4).Value
If Not c Is Nothing Then Me.TextBox71 = c.Offset(2, 2).Value
If Not c Is Nothing Then Me.TextBox72 = c.Offset(2, 4).Value
End Sub