Dim oRegExp As RegExp Dim str As String str = "{pas ça} xxxyyzz {[A]=3;oui;non} xxxyyzzz" Set oRegExp = CreateObject("VBScript.RegExp") oRegExp.Pattern = "[{*=*;*;*}]" oRegExp.Global = True Dim myMatches As MatchCollection Set myMatches = oRegExp.Test(str) Dim myMatch As Match For Each myMatch In myMatches Debug.Print myMatch.value & vbTab & myMatch.FirstIndex Next