Copier/Coller sur une autre feuille au meme endroit

[jujudeo]

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 copiercoller()
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

 

[eriiic]

Bonjour,

essaie avec :

Sheets("TOTAL").Range(cell.address).PasteSpecial xlPasteAll

eric

 

[jujudeo]

ahhh je l'ai plutôt marqué comme ceci

cell.Copy Sheets("TOTAL").Range(cell.Address)

mais effectivement le .address que je ne connaissais pas !! merci beaucoup sujet resolu !!