Sub ComptePages()
Dim Nbpages As Integer
Dim Tourne As Integer, MaxPages As Integer
Dim Mini As Long, Maxi As Long, Pas as long
Nbpages = 0
MaxPages = 7
Pas = 63
Mini = 1
Maxi = pas
For Tourne = 1 To MaxPages
'Test page courante
If WorksheetFunction.CountA(ThisWorkbook.ActiveSheet.Range("A" & Mini & ":J" & Maxi)) > 0 Then Nbpages = Nbpages + 1
Mini = Mini + pas
Maxi = Maxi + pas
Next Tourne
MsgBox "Nombre de pages : " & Nbpages
End Sub