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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets("TOTAL").Range("H5:NI27").PasteSpecial xlPasteAll
la plage sur laquelle je veux coller est celle-ci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets("TOTAL").Range("H5:NI27")
je vous laisse mon code en dessous et je vous remercie par avance !!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
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