Copy paste values pour fichier entier xls

Private Sub Elimine_les_formules()   
' Elimine les formules de calcul   
'   
Dim rngPlage As Range              'Plage des cellules utilisées   
Dim adrCelluleInitiale As String   'Adresse de la cellule active initiale   
Dim nomFeuilleInitiale As String   'Nom de la feuille de calcul active    
Dim nomFeuille As String           'Nom de la feuille de calcul   
Dim n°Feuille As Integer           'N° d'index de la feuille   
Dim intModeDeCalcul As Integer     'Mode de calcul initial (manuel, auto, )   
Dim flgMàjEcran As Boolean         'Etat initial de l'actualisation écran   
     
'Enregistrer le contexte initial   
nomFeuilleInitiale = ActiveSheet.Name   
adrCelluleInitiale = ActiveCell.Address   

'Arrêter l'actualisation automatique de l'écran et les calculs   
flgMàjEcran = Application.ScreenUpdating   
intModeDeCalcul = Application.Calculation   
Application.ScreenUpdating = False   
Application.Calculation = xlCalculationManual   

'Explorer le classeur feuille à feuille   
n°Feuille = 1   
Do   
  'Eliminer les formules de la zone utilisée   
  nomFeuille = Sheets(n°Feuille).Name   
  Sheets(nomFeuille).Select   
  Application.StatusBar = "Suppression des formules dans " & nomFeuille   
  ' - définir la zone utilisée   
  Set rngPlage = Sheets(nomFeuille).UsedRange   
  ' - remplacer les formules par leurs valeurs   
  rngPlage.Copy   
  rngPlage.PasteSpecial Paste:=xlPasteValues   
  '- Feuille suivante   
  n°Feuille = n°Feuille + 1   
Loop While n°Feuille <= Sheets.Count   

'Restaurer le contexte initial   
Sheets(nomFeuilleInitiale).Select   
ActiveSheet.Range(adrCelluleInitiale).Select   
Application.StatusBar = False   
Application.ScreenUpdating = flgMàjEcran   
Application.Calculation = intModeDeCalcul   

End Sub