Filtrer avec une expression régulière

Ne gardez que les données se terminant pas 5 chiffres et séparés par un espace

• La REGEX à passer est " \d{5}"

Sub Main
	GlobalScope.BasicLibraries.loadLibrary ("zBasic")
	
	Dim oFiltre as variant
	sFeuille = "Feuille1"
	sPlage = zPlage.Occupation(sFeuille)
	oFiltre = zFiltre.Demarre(sFeuille, sPlage)
	zFiltre.Parametre(oFiltre, "entete", "O")
	zFiltre.Parametre(oFiltre, "doublon", "O")
	zFiltre.Parametre(oFiltre, "regexp", "O")
	
	zFiltre.Colonne(oFiltre, 1, "", 12, "N", " \d{5}")
	zFeuille.Cree("Résultat")
	zFiltre.Execute(oFiltre, "Résultat", "A1")
End Sub