Sub Compter_Rejet()
Dim i As Integer
Range("B65536").End(xlUp).Offset(1, -1).Activate
ActiveCell.Value = "FIN"
Range("J2").Activate
ActiveCell.FormulaR1C1 = "=IF(RC[-9]="""","""",""x"")"
Range("J2").Select
Selection.AutoFill Destination:=Range("J2:J65536"), Type:=xlFillDefault
For i = 1 To 1500
If Range("F" & i) = "" Then
Range("F" & i).Activate
ActiveCell.FormulaR1C1 = _
"=COUNTIF((INDIRECT(ADDRESS(ROW()+1,6)&"":""&ADDRESS(MATCH(""x"",RiC10:R1000C10,0)-1+ROW(),6))),""Rejeté"")"
End If
Next i
End Sub