Sub Resultat()
Dim F As Worksheet, F1 As Worksheet, F2 As Worksheet
Dim cel As Range, lig As Variant
Set F = Workbooks("Classeur1.xls").Sheets("cpsuivies")
Set F1 = Workbooks("Classeur1.xls").Sheets("Données")
Set F2 = Workbooks("Classeur2.xls").Sheets("Listing Tests")
Application.ScreenUpdating = False 'accélère la macro
For Each cel In F2.Range("BL3", F2.[BL65536].End(xlUp))
cel.Offset(, 1) = 0
lig = Application.Match(cel, F.[S:S], 0)
If IsNumeric(lig) Then
If IsNumeric(Application.Match(F.Cells(lig, 1), F1.[A:A], 0)) _
Then cel.Offset(, 1) = 1
End If
Next
End Sub