VBA coller des valeurs [Résolu/Fermé]

Bonjour,

Je sais que ce sujet a posé de nombreuses questions sur ce forum mais je n'ai pas trouvé de réponse à mon besoin spécifique.

J'ai créé une macro qui me permet à partir d'un premier fichier d'en créer un second dans lequel l'onglet "Onglet publié" est automatiquement copier coller.

Le problème est que les informations qui figure dans cet onglet sont pour certaines (exemple cellule D10) des informations issues d'un autre onglet du premier tableau.

Je souhaiterai qu'une fois le nouveau fichier créé, il me remplace les valeurs de ces cellules (qui sont par exemple ='[02-01 Tableau de gestion des non-conformités.xlsm]NePasModifier'!D6) par leur valeur (qui ne sont pas des nombres).
En fait, ca revient à faire Copier / Coller les valeurs ou copier les valeurs / coller.

Voici ma macro :

Private Sub Cb_Publier_Click()




Dim intMsg As Integer
intMsg = MsgBox("Voulez-vous vraiment publier cette fiche ?", vbOKCancel)
If intMsg = 1 Then

'Je vais chercher la dernière ligne vide de la colonne AK

Dim Ligne4 As Long

Ligne4 = (Worksheets("NePasModifier").Range("AK1").End(xlDown).Row + 1)

Worksheets("NePasModifier").Range("AK" & Ligne4).Value = Worksheets("Onglet publié").Range("D8")

Dim Nom As String
Dim Chemin As String

Chemin = "S:\Exploitation Vehicules\DEX 01 Assistance & Expertise Véhicule\DEX3-02 Gestion des non conformités\"
If Chemin = "" Then Exit Sub
Nom = Worksheets("NePasModifier").Range("AG8")
Sheets("Onglet publié").Copy

ActiveWorkbook.SaveAs Chemin & Nom

'Worksheets("Onglet publié").Range("D10").Copy
'Worksheets("Onglet publié").Range("D10") = xlPasteValues

'Ces deux dernières lignes ne marchent pas...

Else

End If