Private Sub CBValider_Click()
With Sheets("data_Historique")
.Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) = FTache.LDateJour
.Range("A" & .Rows.Count).End(xlUp).Offset(0, 1) = FTache.LMachine
.Range("A" & .Rows.Count).End(xlUp).Offset(0, 2) = FTache.LTache
.Range("A" & .Rows.Count).End(xlUp).Offset(0, 3) = FTache.TBObs
.Range("A" & .Rows.Count).End(xlUp).Offset(0, 4) = Format(FTache.TBTInter.Value, "hh:mm:ss")
End With
With Sheets("data_Planning")
Set trouve = .Range("A:A").Find(CDate(FTache.LDatePrev))
If Not trouve Is Nothing Then
If trouve.Offset(0, 1).Value = FTache.LMachine Then
If trouve.Offset(0, 2).Value = FTache.LTache Then
trouve.EntireRow.Delete
End If
End If
End If
End With
End Sub