Sub matrice_comparaison()
Application.ScreenUpdating = False
Quartiles = Worksheets("Analyse Quartile").Range("H3:K20")
For i = 3 To 16 'colonnes
For j = 3 To 16 'lignes
compteur = 0
For l = 1 To UBound(Quartiles, 1) 'lignes
For c = 1 To UBound(Quartiles, 2) 'colonnes h:k
If Quartiles(l, c) = Worksheets("Matrice de Comparaison").Cells(2, i).Value Then
mot = Quartiles(l, c)
With Worksheets("Analyse Quartile").Range("C3:F" & l + 2 & "")
Set c2 = .Find(mot, LookIn:=xlValues)
If Not c2 Is Nothing Then
firstAddress = c2.Address
Do
compteur = compteur + 1
Set c2 = .FindNext(c2)
Loop While Not c2 Is Nothing And c2.Address <> firstAddress
End If
End With
End If
Next
Next
Worksheets("Matrice de Comparaison").Cells(j, i).Value = compteur
Next
Next
End Sub