Sub decoupe()
Dim Asupp
Dim cell As Range
Dim k As Integer, j As Integer, m As Integer
Dim Tablo()
m = 1
For Each cell In Range("E1:E" & Range("E65536").End(xlUp).Row)
For k = 1 To Len(cell)
If Mid(cell, k, 1) = Chr(40) Then
Asupp = Mid(cell, k, 4)
cell = Replace(cell, Asupp, "")
End If
Next
For j = 1 To Len(cell) Step 2
ReDim Preserve Tablo(1 To m)
Tablo(m) = Mid(cell, j, 2)
m = m + 1
Next
Range("E" & cell.Row).Resize(, UBound(Tablo)) = Tablo
Erase Tablo
m = 1
Next
End Sub