Application.ScreenUpdating = False
Sheets("data").Unprotect password:="fabien"
Sheets("data").Visible = True
Sheets("data").Select
Range("C10").Select
ActiveSheet.Unprotect password:="fabien"
Selection.AutoFilter
Sheets("data").ListObjects("tabData").Range.AutoFilter Field:=3, Criteria1:=ComboBoxPresa.Text
Sheets("data").ListObjects("tabData").Range.AutoFilter Field:=4, Criteria1:=ComboBoxCuib.Text
With Sheets("data")
For y = Range("E65536").End(xlUp).Row To 11 Step -1
If Cells(y, 5).EntireRow.Hidden = False Then
AvantDer = .Cells(y, 5).Value
Range("C10").Select
ActiveSheet.ShowAllData
Selection.AutoFilter
Exit For
End If
Next y
intline = .Range("A65000").End(xlUp).Row + 1
.Range("f" & intline).Value = Val(TextBoxIndex) - AvantDer