Re : insertion de formule
Bonjour,
Essayez avec ceci (code à placer dans " ThisWorkbook "):
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("c4:h8")) Is Nothing Then
Range("N4").Select
End If
End Sub