Sub compte()
Dim listSht As Variant, listAddresse As Variant, cpte As Long, i As Long
[COLOR=Blue][B]listSht = Array("LAPP1", "LAPP2", "LAPP3", "LAPP4")
listAddresse = Array("A1:C10", "A1:C10", "A1:C10", "A1:C10")[/B][/COLOR]
For i = 0 To UBound(listSht)
With Sheets(listSht(i))
On Error Resume Next 'si pas de formules ou constantes
cpte = cpte + .Range(listAddresse(i)).SpecialCells(xlCellTypeFormulas).Count
cpte = cpte + .Range(listAddresse(i)).SpecialCells(xlCellTypeConstants).Count
End With
On Error GoTo 0
Next
MsgBox "Nbre de cellules total utilisées: " & cpte
End Sub