Sub sépare()
nb = Range("TabData").Rows.Count
For i = 1 To nb
Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) = Range("TabData").Item(i, 1)
Sheets("Feuil2").Range("B65536").End(xlUp).Offset(1, 0) = Range("TabData").Item(i, 2)
Sheets("Feuil2").Range("E65536").End(xlUp).Offset(1, 0) = Range("TabData").Item(i, 5)
Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) = Range("TabData").Item(i, 3)
Sheets("Feuil2").Range("B65536").End(xlUp).Offset(1, 0) = Range("TabData").Item(i, 2)
Sheets("Feuil2").Range("E65536").End(xlUp).Offset(1, 0) = Range("TabData").Item(i, 5)
Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) = Range("TabData").Item(i, 4)
Sheets("Feuil2").Range("B65536").End(xlUp).Offset(1, 0) = Range("TabData").Item(i, 2)
Sheets("Feuil2").Range("E65536").End(xlUp).Offset(1, 0) = Range("TabData").Item(i, 5)
Next i
End Sub