XL 2013 Extraire un terme d'une cellule

Function IP_6num(cellule)
Dim x
x = InStr(cellule, "IP")
If x Then
For i = x To Len(cellule)
IP = Mid(cellule, i, 6)
If IP Like "######" Then IP_6num = CLng(IP): Exit Function
Next
End If
IP_6num = "? IP"
End Function

Sub Macro1()
Dim ension
Dim inutif
ension = Array(Array(1, 9), Array(2, 1))
inutif = Array(Array(1, 1), Array(2, 9), Array(3, 9), Array(4, 9))
Application.Goto Reference:="C1"
Selection.Replace What:="IP ", Replacement:="$", LookAt:=xlPart, SearchOrder:=xlByRows
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, Space:=False, Other:=True, OtherChar:="$", FieldInfo:=ension
Application.Goto Reference:="C2"
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, Space:=True, FieldInfo:=inutif
End Sub

Sub Macro1B()
Dim ension: ension = Array(Array(1, 9), Array(2, 1))
Columns(1).Replace What:="IP ", Replacement:="$", LookAt:=2, SearchOrder:=1
Columns(1).TextToColumns Destination:=Range("B1"), DataType:=1, Space:=0, Other:=-1, OtherChar:="$", FieldInfo:=ension
Columns(2).TextToColumns Destination:=Range("B1"), DataType:=1, Space:=-1, FieldInfo:=Array(1, 1)
Columns(3).Resize(, Columns.Count - 2).ClearContents
End Sub

Sub Cherche()
[A1].CurrentRegion.Offset(1).Columns(2) = "=IFERROR(--MID(A2,FIND(""IP"",A2&""IP"")+3,6),"""")"
End Sub