Sub Essai()
  Dim i As Long, Trouvé As String, ListeTrouvés As String, Prefixes As Variant, Total As Long
  ListeTrouvés = " "
  Prefixes = Array("PE-", "JEB-", "HEL-")
  For i = 0 To UBound(Prefixes)

    With ActiveDocument.Content.Find
      .ClearFormatting
      .MatchWildcards = True
      .Text = Prefixes(i) & "[0-9]{1;}"
      .Forward = True
      .Execute

      Do While .Found
        Trouvé = .Parent.Text
        If InStr(1, ListeTrouvés, Trouvé & " ") = 0 Then
          ListeTrouvés = ListeTrouvés & Trouvé & " "
          Total = Total + 1
        End If
        .Execute
      Loop

    End With
  Next i
  ListeTrouvés = Trim(ListeTrouvés)
  ListeTrouvés = Replace(ListeTrouvés, " ", Chr(13))
  Debug.Print ListeTrouvés
  Debug.Print "Total = " & Total
End Sub