Copier/Coller sur une autre feuille au meme endroit

Bonjour,

voila j'ai fait le tour des forums mais je ne trouve pas la solution a une manip très basique

j'aimerais copier les valeurs de cellules non vides vers une autre feuille exactement au même endroit ! En soit très simple, mais je n'arrive pas a "coller" exactement au même endroit.

je sais que mon problème est ici

Sheets("TOTAL").Range("H5:NI27").PasteSpecial xlPasteAll

la plage sur laquelle je veux coller est celle-ci

Sheets("TOTAL").Range("H5:NI27")

je vous laisse mon code en dessous et je vous remercie par avance !!

Sub copiercoler()
Dim myRange As Range
Dim cell As Range

Set myRange = Sheets("RECUP").Range("H5:NI27")
For Each cell In myRange
    If cell <> "" Then
    cell.Copy
    Sheets("TOTAL").Range("H5:NI27").PasteSpecial xlPasteAll
    End If
Next cell

End Sub

Bonjour

Essaie comme ça :

Sub copiercoler()
    Dim myRange As Range
    Dim cell As Range

    Set myRange = Sheets("RECUP").Range("H5:NI27")
    For Each cell In myRange
        If cell <> "" Then
            cell.Copy Sheets("TOTAL").Range(cell.Address) 
        End If
    Next cell
End Sub

Bye !

top merci beaucoup sujet resolu !!