Sub recherche()
mot = InputBox("Veuillez entrer le mot recherché.", "Encaissement 2008")
[COLOR=red]If mot = "" Then Exit Sub[/COLOR]
Sheets("Recherche").Range("A2:i" & Range("A65536").End(xlUp).Row + 1).ClearContents
[COLOR=red]Sheets("Recherche").PageSetup.CenterHeader =" Mot-clé saisi : " & mot[/COLOR]
Call cherche(mot)
End Sub