Sub charger(Caract As String, line As Variant, feuille As Variant)
'récupère les infos qui sont dans la feuille excel
With Sheets("" & feuille & "")
Select Case Caract
Case "R", "E" 'cas Réparation OU Etalonnage
TextBoxR1 = .Range("H" & line) 'date du devis
TextBoxR2 = .Range("I" & line) 'début réparation
TextBoxR3 = .Range("J" & line) 'fin réparation
TextBoxR4 = .Range("K" & Ligne) 'Motif réparation
TextBoxE1 = .Range("E" & line) 'début Etalonnage
TextBoxE3 = .Range("G" & line) 'fin Etalonnage
TextBoxE2 = .Range("F" & line) 'Date Prévue Etalonnage
Case "S", "C" 'Cas Stock OU cas "Chantier"
TextBoxE2 = .Range("F" & line) 'Date Etalonnage ' sert de rappel
If CDate(TextBoxE2) < Date Then TextBoxE2.Font = RGB(255, 0, 0) ' en rouge si E en retard
End Select
End With
End Sub