Macro qui copie des formules au lieu de valeurs

Bonjour à tous,

Voila j'ai une macro qui va copier une ligne (d'un onglet masqué) de plusieurs fichiers excel pour la coller dans un unique fichier excel.

Mon problème c'est que ma macro copie les liens (exemple: ='C:\Users\paul\Desktop\etude 2017\[PLHPO_jean.xls]identité'!H13)au lieu de la valeur qui se trouve dans la ligne.

De plus pour chaque copie de ligne les ref s'incremente de 1.

Sub test()
Dim principal As ThisWorkbook
Dim repertoire As String, fichier As String
    Application.ScreenUpdating = False
    Set principal = ThisWorkbook
    repertoire = "C:\Users\isma\Desktop\opah plh 2017"
    ChDir repertoire
    fichier = Dir("*.xls")
    Do While fichier <> ""
        If fichier <> principal.Name Then
            Workbooks.Open fichier
            On Error GoTo suivant
            With Sheets("données BD")
                On Error GoTo 0
                On Error Resume Next

                .Rows("4") = Rows("4").Value
                .Rows("4").Copy Destination:=principal.Sheets(1).[a65536].End(xlUp).Offset(1)

            End With
            ActiveWorkbook.Close False
        End If
suivant:
        If Err.Number = 9 Then MsgBox "Pas de feuille ""données BD"" dans le fichier " & fichier, vbExclamation: ActiveWorkbook.Close False
        fichier = Dir
    Loop

End Sub

donc le code a modifier est:

                .Rows("4") = Rows("4").Value
                .Rows("4").Copy Destination:=principal.Sheets(1).[a65536].End(xlUp).Offset(1)

Mais je ne sais pas du tout quoi mettre.

Merci pour votre aide.

Ismael

Bonjour,

Essayer ceci

principal.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Offset(1).EntireRow = .Rows("4").Value

Merci d'avoir répondu si vite, avec votre code je n'ai plus rien qui s'importe, la macro se lance, ouvre et ferme tout les fichiers excel mais ne colle rien ou du moins rien n'apparait.

J'ai testé cette instruction qui fonctionne parfaitement.

Votre problème vient d'ailleurs.

MERCI à Thev!

ca marche, problème résolu!