Sub Macro1()
Dim i as Integer, j as Integer, car as Integer, adresse as String
With Worksheets("Feuil3")
For i = 2 To 550
adresse = Replace(.Cells(i, 1), " ", "") ' supprime les espaces qui faussent le résultat de Isnumeric
car = Len(adresse)
For j = 1 To car - 4
If IsNumeric(Mid(adresse, j, 5)) = True Then
.Range("C" & i).Value = Mid(adresse, j, 5)
.Range("C" & i).NumberFormat = "00000"
Exit For
End If
Next j
Next i
End With
End Sub