Convertir un fichier wave to octal data

Option Explicit
Option Private Module

Sub ConvHexASCII()
Dim wbkR As Workbook              'fichier résultat
Dim cel As Range                  '1° cellule de la ligne
Dim nomF As String                'nom complet du fichier
Dim strF As String                'texte du fichier
Dim ptr As Long                   'pointeur texte
Dim nbC As Long                   'nombre de colonnes
Dim n°C As Long                   'numéro de colonne
    
  'Sélection du fichier
  On Error Resume Next
  Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False
  Application.FileDialog(msoFileDialogFilePicker).Show
  nomF = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
  If nomF = "" Then Exit Sub
  On Error GoTo 0
  'Lecture fichier
  strF = LireTexte(nomF)
  'Créer le fichier résultat
  Set wbkR = Application.Workbooks.Add(xlWBATWorksheet)
  wbkR.Worksheets(1).Cells.NumberFormat = "@"
  'Arrêt mise à jour écran et calculs
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  'Edition fichier
  nbC = 16
  Set cel = wbkR.Worksheets(1).Range("A1")
  Do While ptr < Len(strF)
    cel.Value = Right("0000000" & Hex$(ptr), 8)
    For n°C = 1 To nbC
      If ptr + n°C < Len(strF) Then
        cel.Offset(0, n°C).Value = Right("0" & Hex(Asc(Mid(strF, ptr + n°C, 1))), 2)
        cel.Offset(0, nbC + 1 + n°C).Value = WorksheetFunction.Clean(Mid(strF, ptr + n°C, 1))
      End If
    Next
    ptr = ptr + nbC
    Set cel = cel.Offset(1)
  Loop
  'Mise en forme résultat
  wbkR.Worksheets(1).Columns(nbC + 2).ColumnWidth = 4
  wbkR.Worksheets(1).Columns.AutoFit
  wbkR.Worksheets(1).Cells.HorizontalAlignment = xlCenter
  'Restauration calculs et mise à jour écran
  Application.Calculation = xlCalculationAutomatic
  Application.ScreenUpdating = True
  
End Sub

Private Function LireTexte(ByVal nomCompletFichier As String) As String
' Lecture  d'un fichier binaire sous forme de texte (caractères ASCII).
'
Dim n°F As Integer                'numéro du fichier

  On Error GoTo Lp_fin
  If Dir(nomCompletFichier) = "" Then Exit Function
  n°F = FreeFile
  Open nomCompletFichier For Binary Access Read As #n°F
  If LOF(n°F) > 1048576 Then   ' 65536 x 16
     MsgBox "Fichier trop grand pour cette application", vbCritical
     Close #n°F
     Exit Function
  End If
  LireTexte = Space$(LOF(n°F))
  Get #n°F, , LireTexte
  Close #n°F

Lp_fin:

End Function