Macro extaire numéro tél

Bonjour,

Pour simplement les extraire, pas besoin de VBA, un simple filtre suffit (puis un copier/coller) :
https://mon-partage.fr/f/MrSOHDY6/

Par contre s'il faut les rattacher à une entité c'est quasiment impossible même avec VBA : il n'y a aucune correspondance directe avec les autres informations

bonjour, je suggère ceci:
tu crées une fonction faxourien:

Option Explicit
Function faxourien(entree As String) As String
Dim cara As String
Dim pos As Integer
For pos = 1 To Len(entree)
    cara = Mid(entree, pos, 1)
    If Not IsNumeric(cara) Then
        faxourien = ""
        Exit Function
    End If
Next pos
faxourien = entree
End Function

tu ajoutes dans une colonne libre, en ligne 1: =faxourien(A1)
tu étends cette formule vers le bas
tu auras donc la liste des numéros de fax dans la colonne choisie.