Afficher: Nbre de lignes utilisée

Dim ws As Worksheet
Dim MoNom As String
Dim MonNbre As Integer
Dim MaListe As String
Dim Tot As Integer
Dim MonTotalcourrier As String

For Each ws In Worksheets
If ws.Name <> 'A' Then
MonNom = ws.Name
MonNbre = ws.Range('A65536').End(xlUp).Row - 1
MaListe = MaListe & MonNom & ' : ' & MonNbre & vbCrLf
Tot = Tot + MonNbre
End If
Next
MonTotalcourrier = Sheets.Count - 1 & ' Feuilles : ' & Tot & ' Courriers'
MsgBox MaListe & vbCrLf & MonTotalcourrier

Cliquez pour agrandir...

Dim MonNbre As Integer
Dim Tot As Integer
Dim x As Integer
Dim y As Integer

Sheets.Add
ActiveSheet.Move After:=Sheets(Sheets.Count)
ActiveSheet.Name = 'Rapport'
Cells(1, 1).Value = 'Nom'
Cells(1, 2).Value = 'Nombre'
y = 2
For x = 1 To Worksheets.Count - 1
If Sheets(x).Name <> 'A' Then
MonNbre = Sheets(x).Range('A65536').End(xlUp).Row - 1
Sheets('Rapport').Cells(y, 1).Value = Sheets(x).Name
Sheets('Rapport').Cells(y, 2).Value = MonNbre
y = y + 1
Tot = Tot + MonNbre
End If
Next
Sheets('Rapport').Cells(y + 1, 1) = 'Total'
Sheets('Rapport').Cells(y + 1, 2) = Tot

Cliquez pour agrandir...

If Sheets(x).Name <> 'A' And Sheets(x).Name <> 'Rapport' Then

Cliquez pour agrandir...

For x = 1 To Worksheets.Count - 1

Cliquez pour agrandir...