Sub Light12()
Dim fin&, a&, b&, w(1 To 2) As Worksheet
Set w(1) = Worksheets("SPOKES_HUB"): Set w(2) = Worksheets("HUB_SPOKES")
fin = Feuil1.Cells(Rows.Count, 2).End(xlUp).Row
a = 3: b = 3
For i = 1 To fin
If Feuil1.Cells(i, 4) = 0 And Feuil1.Cells(i, 5) <> 0 Then
w(1).Cells(a, 1) = Feuil1.Cells(i, 5)
w(1).Cells(a, 2) = Feuil1.Cells(i, 7)
w(1).Cells(a, 3) = Feuil1.Cells(i, 10)
a = a + 1
Else
If Feuil1.Cells(i, 4) = 122 Or Feuil1.Cells(i, 4) = 124 Then
w(2).Cells(b, 1) = Feuil1.Cells(i, 5)
w(2).Cells(b, 2) = Feuil1.Cells(i, 7)
w(2).Cells(b, 3) = Feuil1.Cells(i, 10)
b = b + 1
End If
End If
Next i
End Sub