excellents sites

exemples du site de Michel:
http://michel.vergriete.perso.sfr.fr/excelvba.html

- Rechercher - Remplacer

- Remplacer un mot par un autre dans une série de Feuilles d'un même classeur

Sub RemplaceMot()
  For Each s In Array("Feuil1", "Feuil2", "Feuil3")
      Sheets(s).Cells.Replace What:="toto", Replacement:="titi", LookAt:=xlPart
  Next s
End Sub

- Rechercher et se positionner sur la valeur Max d'une plage de cellules

Sub valeurmax()
    Set Aselectionner = Application.InputBox _
       (prompt:="selectionner la plage de cellule ", _
       Title:=" Plage de cellules à sélectioner", Type:=8)
       Aselectionner.Select 'Selection de la plage souhaitée
       Vmax = Application.Max(Aselectionner)
       Aselectionner.Find(What:=Vmax, LookIn:=xlValues, SearchOrder:=xlByRows, _
       SearchDirection:=xlNext).Select
End Sub

cREER Formulaire:  https://www.youtube.com/watch?v=IWVYNum2OKs