Microsoft 365 Insérer un commentaire est grisé et n'apparaît pas dans le menu. Pourquoi ? Comment y remédier ?

Sub Lister_Formules()
Dim sht As Worksheet, myRng As Range, newRng As Range, c As Range
Application.ScreenUpdating = False
Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "FORMULES"
Sheets("FORMULES").Range("A1:C1") = Array("Nom feuille", "Adresse Cellules", "Formule")
For Each sht In ActiveWorkbook.Worksheets
        If sht.Name <> "FORMULES" Then
            Set myRng = sht.UsedRange
           On Error Resume Next
            Set newRng = myRng.SpecialCells(xlCellTypeFormulas)
            For Each c In newRng
            With Sheets("FORMULES")
                .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = sht.Name
                .Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Value = VBA.Replace(c.Address, "$", "")
                .Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Value = Mid(c.FormulaLocal, 2, (Len(c.FormulaLocal)))
            End With
            Next c
        End If
    Next sht
    Sheets("FORMULES").Cells(1).CurrentRegion.Borders.Value = 1
    Sheets("FORMULES").Cells(1).CurrentRegion.Columns.AutoFit
End Sub

Sub Lister_NOMS_CLASSEUR()
Dim ws As Worksheet
Set ws = Worksheets.Add: ws.Cells(1).ListNames
End Sub

Sub IMPORTER_CSV()
Dim FilesToOpen, x%
Application.ScreenUpdating = False
FilesToOpen = _
Application.GetOpenFilename(FileFilter:="Fichier CSV (*.csv), *.csv", MultiSelect:=True, Title:="Importation Fchiers CSV")
If TypeName(FilesToOpen) = "Boolean" Then
    MsgBox "Aucune sélection"
    GoTo ExitHandler
End If
x = x + 1
While x <= UBound(FilesToOpen)
    With Workbooks.Open(Filename:=FilesToOpen(x), Local:=True)
        .Sheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        .Close False
    End With
    x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
End Sub