Bonjour,
le problème est que certaine feuilles de mon classeur ne sont pas sous forme de tableau ainsi en m'inspirant de ton code j'ai fait un essaie mais sa ne fonctionne pas.
Private Sub Worksheet_Activate()
Dim ws As Worksheet, Counter As Double, x As Double
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
If Sheets(Array("CA", "RTT", "RELIQUAT N-1", "Heures supplémentaires")).Range("a&65536").End(xlUp).Value
Then
Counter = WorksheetFunction.CountBlank(Range("I1:I65000"))
x = x + Counter
End If
[M2] = x
Next
End Sub