Sub Separe()
Dim tablo1, CP(), Ville()
Dim i As Long, j As Long, k As Long
't = Timer
Application.ScreenUpdating = False
j = 0
k = 0
tablo1 = Range("F2:F" & Range("F65536").End(xlUp).Row)
For i = 1 To UBound(tablo1)
ReDim Preserve CP(j)
ReDim Preserve Ville(k)
CP(j) = Left(tablo1(i, 1), 5)
Ville(k) = Right(tablo1(i, 1), Len(tablo1(i, 1)) - 6)
j = j + 1
k = k + 1
Next
Range("E2:E" & Range("F65536").End(xlUp).Row) = CP
Range("F2:F" & Range("F65536").End(xlUp).Row) = Ville
Application.ScreenUpdating = True
'MsgBox Timer - t
End Sub