Sub Essai()
  Dim Trouvé As String, ListeTrouvés As String
  Dim Prefixes As Variant, Prefixe As Variant
  Dim Total As Long
  
  'pour sortie dans un fichier texte
  Dim SortieFichier As Integer
  
  ListeTrouvés = " "
  Prefixes = Array("PE-", "JEB-", "HEL-")
  
  For Each Prefixe In Prefixes

    With ActiveDocument.Content.Find
      .ClearFormatting
      .MatchWildcards = True
      .Text = Prefixe & "[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 Prefixe
  
  ListeTrouvés = Trim(ListeTrouvés)
  ListeTrouvés = Replace(ListeTrouvés, " ", vbCrLf)
  ListeTrouvés = ListeTrouvés & vbCrLf & "Total = " & CStr(Total)
  
  'Sortie des résultats dans le fichier texte
  SortieFichier = FreeFile
  Open "c:\SortieFichier.txt" For Output As #SortieFichier
  Print #SortieFichier, ListeTrouvés
  Close #SortieFichier
End Sub