Bonjour archer
Merci pour ta réponse, c'est parfait.
J'ai voulu rajouter "vligne" pour que les prochaines données s"ajoutent a la suite mais j"ai un message
" Sub ou fonction non définie"
Feuil1.Select
Application.ScreenUpdating = False
T = 1
For L = 3 To Range("O" & Rows.Count).End(xlUp).Row
If Range("O" & L).Value >= 350 Then
Range("B" & L & ":O" & L).Copy
vligne = vligne("65536").End(xlUp).Row
vligne = vligne + 1
Feuil2.Range("A" & T).PasteSpecial xlPasteValues
T = T + 1
End If
Next L
Application.CutCopyMode = False
Sheets("Feuil1").Select
Range("A10").Select
End Sub
Merci
a+