Option Explicit
Sub récap()
Dim d As Workbook, i&
Set d = Workbooks.Open(ThisWorkbook.Path & "\Fulltest1.xlsx")
ThisWorkbook.Activate
For i = 2 To d.Sheets(1).[B65536].End(3).Row
If d.Sheets(1).Cells(i, 2) = "VOITURE 1" And d.Sheets(1).Cells(i, 5) = "ARR" Then
Sheets(2).Range("A" & Sheets(2).[A65536].End(3)(2).Row) = d.Sheets(1).Cells(i, 6)
Sheets(2).Range("B" & Sheets(2).[A65536].End(3).Row) = d.Sheets(1).Cells(i, 1)
ElseIf d.Sheets(1).Cells(i, 2) = "VOITURE 1" And d.Sheets(1).Cells(i, 5) = "DEP" Then
Sheets(2).Range("C" & Sheets(2).[A65536].End(3).Row) = d.Sheets(1).Cells(i, 1)
ElseIf d.Sheets(1).Cells(i, 2) = "VOITURE 2" And d.Sheets(1).Cells(i, 5) = "ARR" Then
Sheets(3).Range("A" & Sheets(3).[A65536].End(3)(2).Row) = d.Sheets(1).Cells(i, 6)
Sheets(3).Range("B" & Sheets(3).[A65536].End(3).Row) = d.Sheets(1).Cells(i, 1)
ElseIf d.Sheets(1).Cells(i, 2) = "VOITURE 2" And d.Sheets(1).Cells(i, 5) = "DEP" Then
Sheets(3).Range("C" & Sheets(3).[A65536].End(3).Row) = d.Sheets(1).Cells(i, 1)
ElseIf d.Sheets(1).Cells(i, 2) = "VOITURE 3" And d.Sheets(1).Cells(i, 5) = "ARR" Then
Sheets(4).Range("A" & Sheets(4).[A65536].End(3)(2).Row) = d.Sheets(1).Cells(i, 6)
Sheets(4).Range("B" & Sheets(4).[A65536].End(3).Row) = d.Sheets(1).Cells(i, 1)
ElseIf d.Sheets(1).Cells(i, 2) = "VOITURE 3" And d.Sheets(1).Cells(i, 5) = "DEP" Then
Sheets(4).Range("C" & Sheets(4).[A65536].End(3).Row) = d.Sheets(1).Cells(i, 1)
ElseIf d.Sheets(1).Cells(i, 2) = "VOITURE 4" And d.Sheets(1).Cells(i, 5) = "ARR" Then
Sheets(5).Range("A" & Sheets(5).[A65536].End(3)(2).Row) = d.Sheets(1).Cells(i, 6)
Sheets(5).Range("B" & Sheets(5).[A65536].End(3).Row) = d.Sheets(1).Cells(i, 1)
ElseIf d.Sheets(1).Cells(i, 2) = "VOITURE 4" And d.Sheets(1).Cells(i, 5) = "DEP" Then
Sheets(5).Range("C" & Sheets(5).[A65536].End(3).Row) = d.Sheets(1).Cells(i, 1)
End If
Next
End Sub