Rechercher remplacer (Ctrl F) en macro

Sub Tri(w As Worksheet) 'code de base
  w.Unprotect "lino"
  w.[A7:C60].Sort Key1:=w.[A7], Order1:=xlAscending, Header:=xlGuess
  w.Protect "lino"
End Sub

Sub TrierTouteFeuille()
Dim w As Worksheet
For Each w In Worksheets
  Tri w
Next
End Sub

Sub TrierChaqueMois1()
Dim w As Worksheet
For Each w In Worksheets
  If IsDate("1-" & w.Name) Then Tri w 'si feuille d'un mois
Next
End Sub

Sub TrierChaqueMois2()
Dim i As Byte
On Error Resume Next 'si la feuille du mois n'existe pas
For i = 1 To 12
  Tri Sheets(Format("1/" & i, "mmmm"))
Next
End Sub

Sub TrierChaqueMois3()
Dim liste, w As Worksheet
liste = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", _
  "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
For Each w In Worksheets
  If IsNumeric(Application.Match(w.Name, liste, 0)) Then Tri w
Next
End Sub