Sub resolution()
'param
col_num = 3
deb_quest = 5 'colonne de début
fin_quest = 14 'colonne de fin
ligne_pond = 3 'ligne pondération
colonne_resultat = 16 'résultat globale
ligne_groupe = 2 'groupe résultat
ligne_groupe_questionnaire = 2 'groupe questionnaire
'boucle
For i = 4 To 3000
'init
score = 0
If Left(Cells(i, col_num).Value, Len("Questionnaire")) = "Questionnaire" Then
'Globale
For y = deb_quest To fin_quest
If Cells(i, y) = "Oui" Then score = score + Cells(ligne_pond, y)
If Cells(i, y) = "Non" Then score = score - Cells(ligne_pond, y)
Next y
Cells(i + 1, colonne_resultat).Value = score '+1 pour garder les formules, à supprimer plus tard !
'Groupes
For k = 1 To 3
score = 0
For y = deb_quest To fin_quest
If (Cells(i, y) = "Oui") And (Right(Cells(ligne_groupe, colonne_resultat + k).Value, 1) = Cells(ligne_groupe_questionnaire, y).Value) Then score = score + Cells(ligne_pond, y)
If (Cells(i, y) = "Non") And (Right(Cells(ligne_groupe, colonne_resultat + k).Value, 1) = Cells(ligne_groupe_questionnaire, y).Value) Then score = score - Cells(ligne_pond, y)
Next y
Cells(i + 1, colonne_resultat + k).Value = score '+1 pour garder les formules, à supprimer plus tard !
Next k
End If
Next i
End Sub