ans1.txt

Sub MAIN
StartOfWindow
EditReplace .Find = "___", .Replace = "ce que", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceOne, .Format = 0, .Wrap = 1, .FindAllWordForms = 0
If EditFindFound() = 0 Then
	MsgBox "Vous avez repli tout, il faut clicker sur le button CORRIGER", "Info"
End If
End Sub