Sub calc()
Dim i, j As Integer
i = 2 'variable i : numéro de ligne feuille 1
j = 2
With Feuil1
For i = 2 To .[A65536].End(xlUp).Row 'derniere ligne de col A
If (.Range("B" & i).Value > 5) = True Or (.Range("C" & i).Value >= 5) = True Or (.Range("D" & i).Value >= 5) = True Then
Feuil2.Range("A" & j & "
" & j).Value = .Range("A" & i & "
" & i).Value
j = j + 1
End If
Next
End With
End Sub