macro excel - probleme de type

bonjour,

j'ai une petite macro qui ne fonctionne pas, j'ai une incompatibilite de type sur les lignes avec les fonctions left et right. J'ai essayé avec des tostring mais ça n'a pas marché...
Les cellules sur lesquelles s'appliquent les fonctions left et right contiennent une chaîne du type 5G2 ou 10F3 et je ne veux garder que la partie numérique de chaque chaîne.

Sub numPlante()
 
Application.ScreenUpdating = False
 
For i = 2 To (Cells(1, 1).CurrentRegion.Rows.Count) Step 1
    If Cells(i, 7).Value = "F" Then
       Cells(i, 6).Value = Cells(i, 2).Value
    Else
        Cells(i, 6).Value = Left(Cells(i, 2).Value, InStr(Cells(i, 2).Value - 1, "G"))
        Cells(i, 8).Value = Right(Cells(i, 2).Value, InStrRev(Cells(i, 2).Value - 1, "G"))
    End If
Next
 
 
End Sub

en fait, cette sub marche si j'écris
Cells(i, 6).Value = Left(Cells(i, 2).Value, InStr(Cells(i, 2).Value, "G")) au lieu de
Cells(i, 6).Value = Left(Cells(i, 2).Value, InStr(Cells(i, 2).Value - 1, "G"))

Pouvez-vous m'aider?

merci
G.