Sub ExtraitAdresse()
Dim i As Long, Adresse As String
i = 2
Do
Adresse = Range("B" & i).Value
ActiveSheet.Range("E" & i).Value = Right(Adresse, Len(Adresse) - InStrRev(Adresse, " "))
Adresse = Left(Adresse, InStrRev(Adresse, " ") - 1)
ActiveSheet.Range("D" & i).Value = CLng(Right(Adresse, Len(Adresse) - InStrRev(Adresse, " ")))
Adresse = Left(Adresse, InStrRev(Adresse, " ") - 1)
ActiveSheet.Range("C" & i).Value = Adresse
i = i + 1
Loop Until ActiveSheet.Range("B" & i).Value = ""
End Sub