Sub accord()
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim l As Integer
Dim m As Integer
Dim j As Integer
Dim k As Integer
' modifier l'étendue de l en fonction du nombre de sujets
For l = 5 To 57
b = 0
c = 0
d = 0
For m = 3 To 29
If Sheets("Valence").Cells(1, m).Value = "positive" Then
If Sheets("Valence").Cells(l, m).Value = Sheets("Valence").Cells(1, m).Value Then
d = d + 1
End If
If Sheets("Valence").Cells(1, m).Value = "neutre" Then
If Sheets("Valence").Cells(l, m).Value = Sheets("Valence").Cells(1, m).Value Then
c = c + 1
End If
If Sheets("Valence").Cells(1, m).Value = "négative" Then
If Sheets("Valence").Cells(l, m).Value = Sheets("Valence").Cells(1, m).Value Then
b = b + 1
End If
Next m
Sheets("Valence").Cells(l, 32).Value = ((b + c + d) / 27) * 100
Sheets("Valence").Cells(l, 33).Value = (b / 9) * 100
Sheets("Valence").Cells(l, 34).Value = (c / 9) * 100
Sheets("Valence").Cells(l, 35).Value = (d / 9) * 100
Next l
End Sub