Coller valeur uniquement

Selection.Value = Selection.Value

Sub CopieStructure()
Dim NomFichierSortie
Dim Sortie As Workbook
Dim FeuilleOrigine As Worksheet, FeuilleDestination As Worksheet
'Référence la feuille origine des données à copier
Set FeuilleOrigine = ThisWorkbook.Sheets("Export QP")

NomFichierSortie = Application.GetOpenFilename("Fichier Excel (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm")
' On verifie que l'on a selectionné un nom de classeur
   If NomFichierSortie <> False Then
   ' On ouvre le classeur
          Set Sortie = Workbooks.Open(NomFichierSortie)
   'Référence la feuille de destination des cellules copiées
          Set FeuilleDestination = Sortie.Sheets("Fichier")
   ' On copie les cellules de la feuille désirée vers la feuille de sortie
          With FeuilleOrigine
'modification avec le principe Selection.Value = Selection.Value ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
.Range("A13:AJ13").Value = FeuilleDestination.Range("A65536").End(xlUp)(2).Value
          End With
   ' On ferme le classeur
   Sortie.Close
   End If
End Sub