Sub Copie_()
Dim i As Integer
derlig = Range("A65000").End(xlUp).Row + 1
For i = 0 To derlig
If Worksheets("Brute").Cells(derlig, 1).Value <> "" Then
Worksheets("Track").Cells(derlig, 1).Value = Worksheets("Brute").Cells(derlig, 1).Value
Worksheets("Track").Cells(derlig, 2).Value = Worksheets("Brute").Cells(derlig, 2).Value
Worksheets("Track").Cells(derlig, 3).Value = Worksheets("Brute").Cells(derlig, 3).Value
End If
Next i
End Sub