Excel : Macro Range plusieurs cellules variables Fermé

Question

Bonjour, 

Je cherche à effectuer un tableau d'historique.
Pour ce faire, je voudrait copier une ligne de tableau de ma Feuil1 vers ma Feuil3
cependant la ligne à copier du tableau peut varier...

With Worksheets("FEUIL3")
    Worksheets("FEUIL1").Range("D" & number:"G" & number+1).Copy .Cells(.Rows.Count, "A").End(xlUp)(2)
End With

Mais ça ne fonctionne pas
Or ça fonctionne avec ce code
With Worksheets("FEUIL3")
    Worksheets("FEUIL1").Range("D1:G2").Copy .Cells(.Rows.Count, "A").End(xlUp)(2)
End With

Quelle est la formulation pour ça : 
Range("D" & number:"G" & number+1)

michel_m · Answer

bonjour

Worksheets("FEUIL1").Range("D" & number & ":G" & number+1).Copy .Cells(.Rows.Count, "A").End(xlUp)(2)

TeTo · Answer

Après quelques modification j'en suis arrivé à 
 
With Worksheets("Historique maintenance")
Worksheets("Planning").Range("B" & number & ":C" & number).Copy .Cells(.Rows.Count, "B").End(xlUp)(2)
End With


Le debogage affiche erreur 1004 
Ne peut pas s'appliquer à une cellule fusionnée ( Or j'ai tout modifier pour ne plus travailler sur des cellules modifiés ... )