Option Explicit
Dim Cellule1 As Range, Plg1 As String, Dl1 As Long, Dl2 As Long, Dl3 As Long, Plg3 As Range
Dim Col1 As String
Sub Demande()
Dim Sh As Worksheet
For Each Sh In Worksheets
Dl3 = 1
CompterLesEtoiles "I", Sh.Name
Next Sh
End Sub
'---------------------------------------------------
' Module : Module1/CompterLesEtoiles
' Utilisation :3)- Si la première cellule contient une étoile,
'--------------------------------------------------
Private Sub CompterLesEtoiles(Col1 As String, Nomfeuille1 As String)
Dim Plg3 As Range
With Sheets(Nomfeuille1)
Dl2 = .Range(Col1 & .Rows.Count).End(xlUp).Row
Set Plg3 = .Range(Col1 & Dl3 & ":" & Col1 & Dl2)
Dl1 = 0
For Each Cellule1 In Plg3
If Cellule1 = 0 Then
Cellule1.Offset(0, 1) = Dl1: Dl1 = 0
Else
'''''''''Cellule1.Offset(0, 1) = Dl1
Dl1 = Dl1 + 1
End If
Next Cellule1
If .Range("I" & Dl2) = "*" Then .Range("J" & Dl2) = Dl1
End With
End Sub