XL 2016 Macro pour convertir .PDF en .XLSX

      Sub CopierContenuPDFVersExcel()
    Dim WordApp As Object, WordDoc As Object, table As Object

    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True    'Vous pouvez définir ceci sur False si vous ne souhaitez pas afficher Word
    Set WordDoc = WordApp.Documents.Open("C:\Users\patricktoulon\Desktop\cobaie3.pdf")    'Remplacez le chemin par le chemin de votre fichier PDF

    '////////////////////////////////////////////////////////////

    'Mode 1:   ' Copier le contenu du tableau 1  vers Excel en gardant tout
    ' WordDoc.tables(1).Range.Copy
    'With ActiveSheet
    '.[a1].Select
    '.Paste
    'End With
    'With ActiveSheet
    '.Cells.Clear
    '.[a1].Select
    '.Paste
    'End With
    '////////////////////////////////////////////////////////////

    'Mode 2 :  ' Copier le contenu du tableau 1  vers Excel en le recreant dcellule par cellule

    For Each table In WordDoc.Tables
        For i = 1 To table.Rows.Count
            For j = 1 To table.Columns.Count
                ActiveSheet.Cells(i, j + 1).Value = table.Cell(i, j).Range.Text
            Next j
        Next i
        i = i + 1    ' Ajouter une ligne vide entre les tables (optionnel)
    Next table
  

    '////////////////////////////////////////////////////////////


    WordDoc.Close False: WordApp.Quit    ' Fermer le document Word


    Set WordDoc = Nothing: Set WordApp = Nothing    ' Libérer la mémoire

End Sub

Option Explicit
Sub SelectionnerTexte()
  ' Déclaration des variables
    Dim wdParagraphe As Paragraph
    Dim wdNbLignesParagph As Integer
    Dim wdLigneIndex As Byte            ' Index de la ligne dans le paragraphe
    Dim wdtexteLigne As String          ' Texte de la ligne sélectionnée
  
  ' Déplacer la sélection au début du document
    Selection.HomeKey wdStory
  
  ' Parcourir chaque paragraphe dans le document actif
    For Each wdParagraphe In ActiveDocument.Paragraphs
        ' Vérifier si le paragraphe n'est pas vide
        If Len(wdParagraphe.Range.Text) > 1 Then
          ' Sélectionner le paragraphe
            wdParagraphe.Range.Select
          ' Calculer le nombre de lignes dans le paragraphe
            wdNbLignesParagph = wdParagraphe.Range.ComputeStatistics(wdStatisticLines)
          
          ' Si le paragraphe a une seule ligne
            If wdNbLignesParagph = 1 Then
              ' Déplacer la sélection au début de la ligne
                Selection.MoveLeft wdCharacter, 1
              ' Étendre la sélection jusqu'à la fin de la ligne et récupérer le texte
                Selection.EndKey wdLine, wdExtend
                wdtexteLigne = Selection.Text
              ' Afficher le texte de la ligne dans la fenêtre de débogage
                Debug.Print wdtexteLigne
            Else
              ' Si le paragraphe contient plusieurs lignes
              ' Parcourir chaque ligne dans le paragraphe
                For wdLigneIndex = 1 To wdNbLignesParagph
                  ' Sélectionner la ligne
                  ' Si c'est la première ligne, déplacer la sélection au début de la ligne
                    If wdLigneIndex = 1 Then
                        Selection.MoveLeft wdCharacter, 1
                    End If
                  ' Étendre la sélection jusqu'à la fin de la ligne
                    Selection.EndKey wdLine, wdExtend
                  ' Récupérer le texte de la ligne sélectionnée
                    wdtexteLigne = Selection.Text
                  ' Afficher le texte de la ligne dans la fenêtre de débogage
                    Debug.Print wdtexteLigne
                  ' Si ce n'est pas la dernière ligne, déplacer la sélection à la ligne suivante
                    If wdLigneIndex <> wdNbLignesParagph Then
                        Selection.MoveRight wdCharacter, 1
                    End If
                Next wdLigneIndex
            End If
        End If
    Next wdParagraphe
End Sub

Sub lire_tout_les_paragraphes()
    Dim Wapp As Object, WdoC As Object, para As Object, line

    Set Wapp = CreateObject("Word.Application")
    Wapp.Visible = False    'facultatif

    ' Ouvrir le document Word
    Set WdoC = Wapp.Documents.Open("C:\Users\patricktoulon\Desktop\1-Prépa-Compétence - Présentation Diaporama.pdf.pdf")

    'boucle sur les paragraphes
    For Each para In WdoC.Paragraphs
        i = i + 1
        Debug.Print "paragraphe (" & i & ")"
        ' Lire le paragraphe ligne par ligne
        For Each line In Split(para.Range.Text, vbCrLf)
            '
            Debug.Print line
        Next line
        Debug.Print "--------------------"
    Next

    WdoC.Close: Wapp.Quit: Set WdoC = Nothing: Set Wapp = Nothing
End Sub