Autres Extraire dans une phrase, les mots précédés d'un # en colonne.(Excel 2007)

=SI(STXT(Feuil1!$A1;LIGNE(INDIRECT("1:"&NBCAR(Feuil1!$A1)));1)="#";LIGNE(INDIRECT("1:"&NBCAR(Feuil1!$A1))))

=SIERREUR(STXT($A1;PETITE.VALEUR(deb;COLONNE(A1));TROUVE(" ";$A1&" ";PETITE.VALEUR(deb;COLONNE(A1)))-PETITE.VALEUR(deb;COLONNE(A1)));"")

Function REGEXEXTRACTPV(texte As String, Pattern$, Optional index As Variant = 0)
    Dim t, matchs
    With CreateObject("VBScript.RegExp"):
        .Global = True: .IgnoreCase = True: .Pattern = Pattern
        Set matchs = .Execute(texte)
        If matchs.Count > 0 Then
            If index = 0 Then
                ReDim t(matchs.Count)
                For i = 0 To matchs.Count - 1
                    Debug.Print matchs(i)
                    t(i) = matchs(i)
                Next
                REGEXEXTRACTPV = t
            Else
                REGEXEXTRACTPV = matchs(index - 1)
            End If
        Else
        End If
    End With
End Function

Sub UnregisterOptions()
    On Error Resume Next
    Application.Calculation = xlCalculationManual
    Application.MacroOptions Macro:="REGEXEXTRACTPV", Description:=vbNullString, ArgumentDescriptions:=vbNullString, Category:=vbNullString
    On Error GoTo 0
End Sub
Sub registerOptions()
    Dim Funct_description As String
    Dim argumtsArray As Variant

    ' (max 255 caractères)
    Funct_description = "Fonction REGEXEXTRACTPV" & vbCrLf & _
                         "1° chaîne à traiter (String)" & vbCrLf & _
                         "2° pattern ou motif(String)" & vbCrLf & _
                         "3° mode array ou mode single" & vbCrLf & vbCrLf & "Créé par patricktoulon"
   
    argumtsArray = Array(1, 2, 3)
    ' Enregistrement
    Application.MacroOptions Macro:="REGEXEXTRACTPV", _
                                     Description:=Funct_description, _
                                     ArgumentDescriptions:=argumtsArray, _
                                     Category:="Personnalisée"
End Sub