I've done a test with this Sub but when I compile, it does not do anything. Also, it does not give any errors. Then I do not know how to compile it.
Can you help me?
Public Sub calculerScore()
Dim colonne, ligne, ligne_referencej, colonne_reference, score_reponse As Integer
colonne = 1
ligne = 1
ligne_reference = 1
colonne_reference = 1
For colonne = 1 To colonne = 8
For ligne = 1 To ligne = 8
If Cells(ligne, colonne).Value >= Cells(ligne_reference, colonne_reference).Value Then
Cells(ligne + 10, colonne + 10).Value = 1
Else
Cells(ligne + 10, colonne + 10).Value = 0
End If
Next ligne
ligne_reference = ligne_reference + 1
Next colonne
colonne_reference = colonne_reference + 1
End Sub