copier plage de cellule sur une autre feuille

[cindy75015]

bonjour
j'ai un probleme sur une macro
je cherche a copier la plage A4:H4 de la feuille "bd"jusqu’à la dernière ligne remplie
et la copier en valeur sur la feuille "Reporting concordance"a la premiere celulle vide de la colonne B

pour le moment j'ai ce code mais mais ce ne fonctionne pas il doit y avoir un problème quelque part
Dim n As Long
Sheets("bd").Select
Dim DerniereLigne As Integer
DerniereLigne = Range("A65536").End(xlUp).Row
Range("A3:A" & DerniereLigne).Copy
Selection.Copy
With Sheets("Reporting concordance")
n = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
If n < 7 Then n = 7
.Cells(n, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



End With
End Sub


la macro me copie que la ligne 4
merci Cindy

 

[cindy75015]

Re : copier plage de cellule sur une autre feuille

re
une idée du problème
cindy

 

[Gardien de phare]

Re : copier plage de cellule sur une autre feuille

Re,
Je ne sais pas qui a fait le code que tu nous montres mais il ne correspond pas à ce que tu dis vouloir faire de toute façon. Par ailleurs, pour comprendre le problème que tu rencontres, un exemple en PJ n'aurait pas été inutile.