Dim Cell_B As Range
Sheets("Feuil1").Activate
ActiveSheet.AutoFilterMode = False
c = 2
For Each Cell_B In Range("B" & c & ":B8628")
Range("A1").AutoFilter field:=2, Criteria1:="=" & Cell_B
'Set Rng = ActiveSheet.Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
For Each cell In Range("_FilterDataBase").Offset(1, 0).Resize(, 1)
If cell.EntireRow.Hidden = False Then
cell.Select
NumCell = cell.Row
NumCamp = Range("D" & NumCell).Value
If NumCamp = 1 Then
Range("T" & NumCell).Value = 0
NCPrec = Range("A" & NumCell).Value
Else
Range("K" & NumCell) = NCPrec
NCPrec = Range("A" & NumCell).Value
End If
End If
Next
ActiveSheet.AutoFilterMode = False
c = c + 1
NumCell = 1
Next