Salut Clement
où doit-on inscrire cette valeur ? Dans le code suivant, cette info apparaît dans une MsgBox, à défaut...
Code à coller tel quel dans 'ThisWorkbook'...
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'
Dim iTot%
'
If Not Intersect(Target, [N4]) Is Nothing Then
For x = 1 To Sheets.Count
If CInt(Sheets(x).[N4]) = 3 Then iTot = iTot + 1
Next
MsgBox iTot
End If
'
End Sub
A+