Remplacer tout dans un lot de notices

L'objectif est de remplacer la chaîne "915 ##$a" par "915 ##$b" dans un ensemble de notices.

Sub RemplaceTout()
	Application.ActiveWindow.Command "che sel 06-06-2011", False
	Dim total
	total = Application.ActiveWindow.Variable("P3GSZ")
	For element = 1 To total
		Application.ActiveWindow.Command "aff " & element, False
		Application.ActiveWindow.Command "mod", False
		Application.ActiveWindow.Title.ReplaceAll "915 ##$a", "915 ##$b" , False
		Application.activeWindow.simulateIBWKey "FR"
	Next
End Sub