Option Explicit
Sub Essai()
Dim cel As Range, dlg&, lig&: Application.ScreenUpdating = 0
dlg = Cells(Rows.Count, 1).End(3).Row: If dlg < 6 Then Exit Sub
With Application
.ScreenUpdating = 0: .DisplayAlerts = 0
For lig = 6 To dlg
Cells(lig, 1).TextToColumns Cells(lig, 3), 1, OtherChar:=":", _
FieldInfo:=Array(Array(1, 1), Array(2, 1))
Cells(lig, 4).TextToColumns Cells(lig, 4), 1, OtherChar:="–", _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), _
Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1))
Next lig
.DisplayAlerts = -1
End With
End Sub