Sub Copie()
Dim rOF As Integer
Dim rCF As Integer
Dim sOF As Worksheet
Dim sCF As Worksheet
Set sOF = Worksheets("RECAP")
Set sCF = Worksheets("Feuil1")
rCF = 3
For rOF = 2 To 10000
If sOF.Cells(rOF, 8).Text = "2" Then
sOF.Range(sOF.Cells(rOF, 1), sOF.Cells(rOF, 1)).Copy sCF.Cells(rCF, 1)
rCF = rCF + 1
End If
Next
Application.CutCopyMode = False
End Sub