Copier puis collage valeur

Bonjour à tous,

J'ai un petit fichier excel avec plusieurs feuilles et j'aimerais copier/coller des données des feuilles sur une feuille de récap.

Alors j'ai réussi à faire cela mon seul souci c'est que j'aimerais qu'il colle les valeurs des cellules et ça je n'y arrive pas.

Voici mon code, avez-vous une idée pour mon souci ou une amélioration de mon code ?

D'avance merci

Sub transfert()
'recap toutes zones
Dim dlgR As Integer, dlgi As Integer
Dim i As Byte
With Sheets("RECAP")
dlgR = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A2:G100").ClearContents
End With
For i = 1 To Worksheets.Count
    Select Case UCase(Sheets(i).Name)
    Case Is = "RECAP"
    Case Is = "CONTACTS"
    Case Is = "GESTION DES DECHETS"
    Case Else
        dlgR = Sheets("RECAP").Range("A" & Rows.Count).End(xlUp).Row
        With Sheets(i)
            dlgi = .Range("A" & Rows.Count).End(xlUp).Row
            .Range("A3:G" & dlgi).Copy Sheets("RECAP").Range("A" & dlgR + 1).PasteSpecial
        End With
    End Select
Next
End Sub

Bonjour,

essaie avec :

.Range("A3:G" & dlgi).Copy 
Sheets("RECAP").Range("A" & dlgR + 1).PasteSpecial Paste:=xlPasteValues

eric

Merci beaucoup avec ton bout de code cela fonctionne nickel.

Petite question pour que je comprenne. J'avais bien tester avec le bout de code suivant mais cela m'indiquait une erreur

 .PasteSpecial Paste:=xlPasteValues

Quel est la différence entre ma ligne de code en premier et la tienne en 2ème si il y en a une

.Range("A3:G" & dlgi).Copy Sheets("RECAP").Range("A" & dlgR + 1).PasteSpecial Paste:=xlPasteValues

.Range("A3:G" & dlgi).Copy
Sheets("RECAP").Range("A" & dlgR + 1).PasteSpecial Paste:=xlPasteValues

Le pastespecial est séparé du copy , et il lui faut la ref de destination.

Un grand merci et bonne fin de journée.