Récupération d'un élément dans une phrase

Bonjour à vous

Je demande votre aide car j'ai récupéré un code vba sur internet, mais je n'arrive pas à le configurer pour mon besoin.

Je souhaite récupérer que les valeurs et la tolérance de torquage, exemple: 2,4Nm (-1,2N.m, +2,4N.m)

Le fichier Excel est disponible en pièce jointe.

NOK

OK

Voici le code vba que j'utilise

Sub ExtraitTph_V3()
  For Each c In Range("A2:A" & [A65000].End(xlUp).Row)
    chaine = c & "  "
    col = 1
    Do
     p = 1
     témoin = False
     Do While p <= Len(chaine) - 22 And Not témoin
       If Mid(chaine, p, 22) Like "*(*)*" Then témoin = True Else p = p + 1
     Loop
     If témoin Then
        temp = Mid(chaine, p, 22)
        For Each k In Array(";", "\"): temp = Replace(temp, k, " "): Next k
        c.Offset(, col) = temp
        col = col + 1
     End If
     chaine = Mid(chaine, p + 22)
    Loop While témoin
  Next c
End Sub

Merci d'avance !

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Mm pas vraiment car il reste toujours des éléments devant et derrière le résultat

Après si vous avez un tout autre code vba, je suis preneur.

Nouvelle version

Bye !

Woaw, un grand merci gmb !