Sub Test_cp_03()
Dim cpt As Long
Dim bTrouve As Boolean
Dim sStr As String, sCh As String
Dim LastRow As Long, i As Long
LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
bTrouve = False
sCh = ""
For i = 1 To LastRow
sStr = Feuil1.Range("A" & i).Text
For cpt = 1 To Len(sStr)
Select Case Mid(sStr, cpt, 1)
Case "0" To "9"
bTrouve = True
sCh = sCh & Mid(sStr, cpt, 1)
Case " ", Chr(13), Chr(10):
If bTrouve Then
If Len(sCh) = 5 Then
Feuil1.Range("B" & i).Value = Mid(sStr, cpt - 5, 5)
End If
bTrouve = False
sCh = ""
End If
End Select
Next cpt
Next i
End Sub