Sub tri_taux_horaire()
Dim cellule, donnees As Range
Workbooks("test macro2.xls").Activate
Set donnees = Worksheets("Feuil3").Range("a2:F2")
For Each cellule In Worksheets("Feuil3").Range("F2:F" & Range("F65000").End(xlUp).Row)
If IsNumeric(cellule) Then
L = L + 1
Range(Cells(cellule.Row, 1), Cells(cellule.Row, 6)).Copy
ActiveSheet.Paste Destination:=Sheets("Tab_taux").Cells(L, 1)
End If
Next
End Sub