VBA Macro copie/colle valeur cellule non vide à la fermeture

            'Ne tient compte que les cellules ayant une formule renvoyant des nombres et valeurs logiques
            Set Plage_Cible = Range("E9:K22").SpecialCells(xlCellTypeFormulas, xlNumbers + xlLogical)
            If Not plage Is Nothing Then Plage_Cible.Value = Plage_Cible.Value
            Set Plage_Cible = Nothing
 
            'Les cellules renoyant une valeur textuelle
            Set Plage_Cible = Range("E9:K22").SpecialCells(xlCellTypeFormulas, xlTextValues)
            If Not Plage_Cible Is Nothing Then
                For Each c In Plage_Cible.Cells
                    If Not c.Text = "" Then c = c.Value
                Next c
            End If

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim X As Long, F As Worksheet
Application.ScreenUpdating = False
For Each F In ThisWorkbook.Worksheets
'Pour chaque feuille de ce classeur
    If F.Name <> "nom1" And _
       F.Name <> "nom2" And _
       F.Name <> "nom3" And _
       F.Name <> "nom4" And _
       F.Name <> "nom5" Then
        For X = 9 To 22
            If F.Range("I" & X) <> "" Then
                F.Range(F.Cells(X, "E"), F.Cells(X, "K")) = F.Range(F.Cells(X, "E"), F.Cells(X, "K")).Value
            Else
                Exit For
            End If
        Next X
    End If
Next F
Application.ScreenUpdating = True
End Sub