Sub ExtractionCOULOU()
Dim p As Range, d$
d = Range("A1:A" & [A65536].End(xlUp).Row).Address
Set p = Application.InputBox(Chr(13) & "Seléctionner vos cellules, svp", "Extraction", d, Type:=8)
p.TextToColumns Range("A1"), xlDelimited, xlDoubleQuote, True, , , , True, True, ")", Array(Array(1, 9), Array(2, 9), Array(3, 9), Array(4, 1), Array(5, 9))
p.NumberFormat = "0"
End Sub