pour le moment j'ai fait ça avec les quelques trucs que j'ai réussi à comprendre depuis hier mais c'est pas terrible.... et puis comment on fait pour afficher le tableau de valeurs? merci pour vos réponses
Sub occurences()
' comptage des occurences de mots placé dans la colonne H toutes les 5 lignes
'comparaison de la 1ere cellule à toutes les autres, de la 2e à toutes les autres etc.
Dim I As Variant 'cellule= point de comparaison
Dim occ, n As Integer 'nombre d'occurences
I = Range("H17").Value
Range("H11").Select
Range("H11").Select
Do While (ActiveCell.Address <> Range("H59").Address)
n = 12
occ = 1
Do While (n <= 54)
'Tant qu'on a pas atteint la fin de la liste
If ActiveCell.Value = "" Then 'si la cellule est vide occurence à 0
occ = 0
'décallage vers le bas du point de comparaison
Else 'la cellule n'est pas vide
If ActiveCell.Value = I Then
occ = occ + 1
'décallage
End If
End If
I = ActiveCell.Offset(n, 0).Value 'décallage du point de comparaison
n = n + 6
Loop
ActiveCell.Offset(6, 0).Select ' changement de cellule à comparer
I = ActiveCell.Offset(6, 0).Value
MsgBox (occ) 'essai d'affichage
Loop