XL 2016 VBA - Réduire la largeur de la grille Excel

        Function OuvrirPDF_Edge()
            Dim hwnd
            'fonction de @nullosse
            Dim cheminPDF As String
            OuvrirPDF_Edge = 0
            cheminPDF = Application.GetOpenFilename("pdf Files (*.pdf), *.pdf", 1, "ouvrir un fichier")
            If cheminPDF = "Faux" Then Exit Function
            Dim pdfURL$, t#
            pdfURL = "file:///" & Replace(cheminPDF, "\", "/") ' Format de l'URL pour Edge
            Shell "cmd /c start msedge --app=""" & pdfURL & """", vbHide ' Ouvre Edge avec le PDF en mode app (fenêtre propre)
            t = Timer
            Dim partsPath, nomfenetre
            partsPath = Split(cheminPDF, "\")
            nomfenetre = partsPath(UBound(partsPath))
            Do
                hwnd = FindWindow("Chrome_WidgetWin_1", nomfenetre)
               ' Debug.Print hwnd
                DoEvents
                If Timer - t > 5 Then Exit Do ' Max 5 secondes
            Loop While hwnd = 0
            If hwnd = 0 Then
                MsgBox "Fenêtre Edge non trouvée.", vbExclamation
                Exit Function
            Else
                OuvrirPDF_Edge = hwnd
            End If
        End Function

'Option Explicit
'patricktoulon
'déclaration VBA7 en 32/64 bits
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As LongPtr, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare PtrSafe Function GetWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal wCmd As Long) As Long
Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long

Sub Maximizemafenetretaratata()
    Dim hwnd As Long
    hwnd = FindWindoWByPartTitle("taratata", "Bloc-notes") ' chaine , nom de l'app qui l'execute (les 2 optionnels)
    If hwnd <> 0 Then
        ShowWindow hwnd, 3 ' 3 correspond à SW_MAXIMIZE
    Else
        MsgBox "Aucune fenetre contenant ""taratata"" n'est ouverte affichée ou reduites!"
    End If
End Sub

Function FindWindoWByPartTitle(Optional partTittle As String = "", Optional PartApp As String = "")
    Dim sStr As String, hwnd As LongPtr
    sStr = Space$(150)
   hwnd = FindWindow(vbNullString, vbNullString)
      Do While hwnd <> 0
        GetWindowText hwnd, sStr, 300
           If sStr Like "*" & partTittle & "*" & PartApp & "*" Then 
            FindWindoWByPartTitle = hwnd
              Exit Do
        End If
        hwnd = GetWindow(hwnd, 2)
    Loop
End Function

#If VBA7 Then
    Function OuvrirPDF_Edge() As LongPtr
        Dim hwnd As LongPtr
    #Else
        Function OuvrirPDF_Edge() As Long
            Dim hwnd As Long '
        #End If
        'fonction de @nullosse
        Dim cheminPDF As String
        OuvrirPDF_Edge = 0
        cheminPDF = Application.GetOpenFilename("pdf Files (*.pdf), *.pdf", 1, "ouvrir un fichier")
        If cheminPDF = "Faux" Then Exit Function
        Dim pdfURL$, t#
        pdfURL = "file:///" & Replace(cheminPDF, "\", "/") ' Format de l'URL pour Edge
        Shell "cmd /c start msedge --app=""" & pdfURL & """", vbHide ' Ouvre Edge avec le PDF en mode app (fenêtre propre)
        t = Timer
        Do
            hwnd = FindWindow("Chrome_WidgetWin_1", Mid(cheminPDF, InStrRev(cheminPDF, "\") + 1))
            DoEvents
            ' Max 5 secondes
            If Timer - t > 5 Then Exit Do
        Loop While hwnd = 0
        If hwnd = 0 Then
            MsgBox "Fenêtre Edge non trouvée.", vbExclamation
            Exit Function
        Else
            OuvrirPDF_Edge = hwnd
        End If
    End Function