Sub test()
Dim cellBrute As Range, cellTriee As Range
Set cellBrute = ThisWorkbook.Sheets("Tab brute").Range("B1").End(xlDown)
Set cellTriee = ThisWorkbook.Sheets("Tab triee").Range("A2")
While cellBrute.Text <> vbNullString
cellTriee.Value = cellBrute.Value
cellTriee.Offset(0, 1).Value = cellBrute.Offset(2, 1).Value
cellTriee.Offset(0, 2).Value = cellBrute.Offset(4, 1).Value
Set cellBrute = cellBrute.End(xlDown)
Set cellTriee = cellTriee.Offset(1, 0)
Wend
End Sub