Extraire un nombre entre paranthèse

Bonjour à tous,

J'utilise une macro sur excel 2007 qui copie, classe et re-copie dans une autre feuille d'un document... et cela fonctionne très bien. Mon problème est que la macro ne copie que les cellules ayant des données. Y en a une ( cellule ) pour lequel j'aimerais trouver une façon d'extraire le nombre. La cellule a habituellement cette forme : ms (93 bpm). Moi je suis intéressé par le nombre 93.

voici la partie de la macro en question :

Sub s_810()
'S810
Dim loSheet As Excel.Worksheet
Dim lcLoc As String
Dim lrow As Long
Dim lcol As Long
Set loSheet = ActiveSheet
lrow = ActiveCell.Row
lcol = ActiveCell.Column
If Not SheetExists("tempPolar") Then
Workbooks(1).Sheets.Add
Workbooks(1).Sheets(1).Name = "tempPolar"
End If
Workbooks(1).Sheets("tempPolar").Activate
Workbooks(1).Sheets("tempPolar").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
ActiveSheet.Paste 'Dump le contenu du buffer copier du logiciel Polar.
Range("B2, B5:B22").Select
Selection.Copy 'Copier seulement les lignes qui contiennent du data
If Not SheetExists("tempPolar2") Then
Workbooks(1).Sheets.Add
Workbooks(1).Sheets(1).Name = "tempPolar2"
End If

*J'ai essayé de modifier la ligne " Range("B2, B5:B22").Select" en ajoutant la cellule en question et cela donne = "Range("B2, B5:B22, C8").Select" toutefois j'obtiens un message d'erreur car cette fonction ne copie que les data (je crois).

Merci d'avance pour les pistes de solution

Isoski