Sub unparun()
Dim L As Byte, n As Byte, a
Application.ScreenUpdating = 0
For L = 1 To 15 Step 2
Cells(L, 1) = Trim(Cells(L, 1)) 'plus d'espaces
Cells(L, 1) = Replace(Cells(L, 1), ":", "-") 'remplacement de : par -
a = Split(Cells(L, 1), "-") 'tableau des éléments de la cellule séparés par -
For n = 0 To 8: Cells(L, 7 + n) = a(n): Next 'écriture
Next
[A1:A15] = "" 'nettoyage
End Sub