merci du tuyau ....
La macro de Bernard modifiée :
Dim MyRange As Range, MyPlage As Range
Dim C As Range, Mot As Range
Dim j As Byte
'Effacement des anciennes données du tableau
Worksheets("Liste à faxer").Range("D2", "D2000").ClearContents
'Déclaration de variable de la feuille Résultats
Set MyPlage = Range(Worksheets("Liste à faxer").Range("B2"), Worksheets("Liste à faxer").Range("B800").End(xlUp))
For Each Mot In MyPlage
'Mise en boucle des feuilles
For j = 1 To 4
'Déclaration de variable de la feuille à traiter
Set MyRange = Range(Sheets(j).Range("E2"), Sheets(j).Range("E700").End(xlUp))
'Boucle de mise en tableau des noms qui n'y sont pas, de leurs valeurs et du total
For Each C In MyRange
'Boucle de mise en place de la valeur correspondant aux mots de la feuille résultats
If Mot = C Then ' Recherche du mot
If C.Offset(0, -4) <> "" Then ' Recherche du mot
Mot.Offset(0, 1) = C.Offset(0, -4) ' Inscription de sa valeur
Mot.Offset(0, 3) = Sheets(j).Name ' Inscription du nom de la feuille
End If
End If
Next C
Next j
Next Mot