'balayage des lignes et comptage des avions concernés
Dim Avion As String
Dim sector As String
Dim Tim As Integer
Dim Head As Integer
J = 0
I = 1
Sheets("Feuil2").Cells.ClearContents
Avion = Range(Cells(I, 1), Cells(I, 1)).Value
sector = Range(Cells(I, 2), Cells(I, 2)).Value
Tim = Range(Cells(I, 3), Cells(I, 3)).Value
Head = Range(Cells(I, 4), Cells(I, 4)).Value
Do While Cells(I, 1).Value <> ""
If Cells(I, 1).Value <> Avion Then
J = J + 1
Sheets("Feuil2").Cells(J, 1).Value = Avion
Sheets("Feuil2").Cells(J, 2).Value = sector
Sheets("Feuil2").Cells(J, 3).Value = Tim
Sheets("Feuil2").Cells(J, 4).Value = Head
Avion = Cells(I, 1).Value
sector = Cells(I, 2).Value
Tim = Cells(I, 3).Value
Head = Cells(I, 4).Value
End If
I = I + 1
Loop
J = J + 1
Sheets("Feuil2").Cells(J, 1).Value = Avion
Sheets("Feuil2").Cells(J, 2).Value = sector
Sheets("Feuil2").Cells(J, 3).Value = Tim
Sheets("Feuil2").Cells(J, 4).Value = Head
Application.ScreenUpdating = True