A placer dans le thisworkbook :
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'macro qui empêche la sélection des cellules contenant des formules
Dim Cell As Range
For Each Cell In Selection
If Cell.HasFormula Then Selection.Cells(1, 1).Offset(, 1).Select
Next
End Sub
Ou à placer dans le code de la feuille :
Private Sub Worksheet_selectionChange(ByVal Target As Range)
'macro qui empêche la sélection des cellules contenant des formules
Dim Cell As Range
For Each Cell In Selection
If Cell.HasFormula Then Selection.Cells(1, 1).Offset(, 1).Select
Next
End Sub