et oui en plus j'avais mis des commentaires explicatifs
boite find
'Application.Dialogs(xlDialogFormulaFind).Show "chaine recherchée",choix combo2, checkbox "cellule entiere", choix combo1, , checkbox "match case"
boite replace
Application.Dialogs(xlDialogFormulaReplace).Show "toto", "titi", , 2, , True
'Application.Dialogs(xlDialogFormulaReplace).Show "a replacer", replacement,checkbox "cellule entiere",combo "par ligne/colonne",,checkbox "match case"
merci pour la picure de rappel