Private Sub CommandButton1_Click()
Dim sh As Worksheet, plage As Range, c As Range, k As Integer, h As Integer, dic, feuilles
dic = Array("=*VLOOKUP*", "=*INDEX*", "=*MATCH*")
feuilles = Array("Feuil1", "Feuil2") '---->> mets dans cet array les feuilles concernées
For h = 0 To UBound(feuilles)
On Error Resume Next
Set plage = Worksheets(feuilles(h)).Cells.SpecialCells(xlCellTypeFormulas)
If Not plage Is Nothing Then
For Each c In plage.Cells
For k = 0 To UBound(dic)
If c.Formula Like dic(k) Then
c.Value = c.Value
End If
Next
Next
End If
On Error GoTo 0
Next
End Sub