Private Sub TextBox_DateFacture_Change()
If Not IsDate(TextBox_DateFacture) Then Exit Sub
Dim x$, tablo, i&
x = Cbo_N°Facture
With Sheets("SuiviFactures")
tablo = .[A1].CurrentRegion.Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
For i = 2 To UBound(tablo)
If CStr(tablo(i, 1)) = x Then .Cells(i, 3) = CDate(TextBox_DateFacture): Exit Sub
Next
End With
End Sub
Private Sub TextBox_DatePresta_Change()
If Not IsDate(TextBox_DatePresta) Then Exit Sub
Dim x$, tablo, i&
x = Cbo_N°Facture
With Sheets("SuiviFactures")
tablo = .[A1].CurrentRegion.Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
For i = 2 To UBound(tablo)
If CStr(tablo(i, 1)) = x Then .Cells(i, 6) = CDate(TextBox_DatePresta): Exit Sub
Next
End With
End Sub