recherche de code poste dans l'adresse

bonjour

j'ai un petit pb de synthaxe
je recherche le code postal dans une liste d'adresses donc une succession de 5 caractères numériques

d'avance merci.
voici le code.

Sub Macro1()

Sheets("Feuil3").Select
Worksheets("Feuil3").Range("A1").Select

For I = 2 To 550

adresse = Worksheets("Feuil3").Range("A" & I)
car = Len(adresse)

For J = 1 To car
For k = 1 To 5

If IsNumeric(Mid(adresse, J, k)) = True Then
If Len(Mid(adresse, J, k)) > 4 Then
Worksheets("Feuil3").Range("C" & I).Value = Mid(adresse, J, k)
k = 5
J = car
Next I

Else
End If
Next k 'next K

Else 'pas numeric
J = J + k - 1

Next J 'next J
End If


'
End Sub