Analyse résultats sondages

Option Explicit
Dim Rempli As Boolean
Sub trade()
Dim Sh As Worksheet
Dim Cellule As Range
'raz
With Sheets("Analyse résultats")
For Each Cellule In .Range("c6:g14")
    Cellule = 0
Next Cellule
.Range("i" & 6) = 0

    For Each Sh In Worksheets
        If Sh.Name <> "Analyse résultats" Then
        Rempli = False
        travdem Sh.Name, "Analyse résultats"
        End If
        If Rempli = True Then .Range("i" & 6) = .Range("i" & 6) + 1
    Next Sh
End With
End Sub
     


Private Sub travdem(Nomfeuille1 As String, Nomfeuille2 As String)
Dim Cellule As Range
Dim Col As String
'parametre
Col = "c"
With Sheets(Nomfeuille1)
For Each Cellule In .Range("c4:g12")
    If Cellule <> "" Then
        Sheets(Nomfeuille2).Cells(Cellule.Row + 2, Cellule.Column) = Sheets(Nomfeuille2).Cells(Cellule.Row + 2, Cellule.Column) + 1
        Rempli = True
    End If
Next Cellule
End With
End Sub

=SOMME(TA:CV!C4)

=NBVAL(TA:CV!C4)/MAX(NBVAL(TA:CV!$C4:$G4);1)