NbOcc, NbCol, NbLig, i, j sont des entiers
sRech est une chaîne="Chaine à trouver"

NbCol=TableOccurrence(tbRech,toColonne)
NbLig=TableOccurrence(tbRech)

POUR i=1 A NbLig //Parcours des lignes
	POUR j=1 A NbCol//Parcours des colonnes
		SI Position(tbRech[i][j],sRech)>0 ALORS
			NbOcc++
		FIN
	FIN
FIN
Info("'"+sRech+"' apparait "+NbOcc+" fois.")