Bonsoir,
Utilise le code suivant :
Sub extraction()
derLig = Sheets("listenco.RPT").Range("E" & Rows.Count).End(xlUp).Row
j = 2
For i = 1 To derLig
If Sheets("listenco.RPT").Cells(i, 1) = "Tube :" Then
Tube = Sheets("listenco.RPT").Cells(i, 2)
Else
test = Sheets("listenco.RPT").Cells(i, 2)
resultat = Sheets("listenco.RPT").Cells(i, 5)
End If
If Tube <> "" And test <> "" Then
Sheets("Feuil1").Cells(j, "A") = Tube
Sheets("Feuil1").Cells(j, "B") = test
Sheets("Feuil1").Cells(j, "C") = resultat
j = j + 1
End If
Next i
End Sub