Private Sub CommandButton1_Click()
Dim sh As Worksheet, plage As Range, c As Range, k As intege, dic
dic = Array("=*VLOOKUP*", "=*INDEX*", "=*MATCH*")
For Each sh In ActiveWorkbook.Worksheets
On Error Resume Next
Set plage = sh.Cells.SpecialCells(xlCellTypeFormulas)
If Not...