Bonsoir,
Essaie ainsi :
Public Sub DEMO()
Dim i As Long, lRow As Long
With F01
lRow = 8
For i = 2 To .Cells(Rows.Count, "C").End(xlUp).Row
If .Cells(i, 3) = 1 And .Cells(i, 3).Offset(0, 1) > 2Then
.Cells(lRow, 11) = .Cells(i, 5)
lRow = lRow + 1
End If
Next
End With
End Sub
Cdlt.