If Left(range("A1").formula,1)="=" Then
msgbox("il y a une formule")
End if
MsgBox "la cellule A1 contient une formule : " & [A1].HasFormula
Sub elimine_constantes()
For i = 1 To Sheets.Count
On Error Resume Next
Sheets(i).Cells.SpecialCells(xlCellTypeConstants, 1).ClearContents
Next i
End Sub
Private Sub Workbook_Open()
For i = 1 To Sheets.Count
On Error Resume Next
Sheets(i).Range("A2:C10").SpecialCells(xlCellTypeConstants, 1).ClearContents
Next i
End Sub