VBA Excel : appel erroné pour procédure Mid

Bonjour,

J'essaie de coder une macro sous excel 2007 pour traiter du texte. Le code ci-dessous traite mon texte comme je l'attends mais j'obtiens une erreur d'exécution "5" appel de procédure incorrect.

La macro fonctionne donc je n'arrive pas à comprendre le problème. D'après le débogueur, l'erreur vient de la procédure en gras et souligné dans le code. J'ai vérifié dans l'aide la façon de l'appeler et ça me parait correct. Si quelqu'un a une suggestion à me faire, ce serait avec grand plaisir que je la lirais.

Cordialement,

Edouard.

Je copie le code :

Option Explicit

Sub ExtraireAdresse()
 
 Dim PosG As Integer, PosD As Integer
 'PosG correspond à la position dans la chaîne de caractère où apparaît "<" c'est un entier
 '(ex : 3° caractère de la chaîne)
 
 Range("A14").Select
 
 Do Until ActiveCell <> Null
 
 PosG = InStr(1, ActiveCell.Value, Chr(60))
 'recherche le caractère "<" dans la cellule active (dans la classe valeur de la cellule active)
 'à partir du 1er caractère) et renvoie la position de ce caractère dans la chaine étudiée
 
 PosD = InStr(PosG, ActiveCell.Value, Chr(62))
 
 ActiveCell.Offset(0, 1).Value = Mid(ActiveCell.Value, PosG + 1, PosD - PosG - 1)

 'la fonction Mid extrait le texte (.value) de la cellule active entre la position de < et de >
 'et la colle dans la cellule à côté

 ActiveCell.Offset(1, 0).Select
 'décalage à la ligne inférieure
 
Loop

End Sub