Copier coller a la suite

bonjour,

Après avoir regardé sur différents forum ,je n'ai pas trouvé comment faire pour copier puis coller a la suite sur 2 feuilles différentes.

merci pour vos réponse

je joint un fichier avec les explications

cordialement

Bonjour,

à tester,

Sub Transfert()
Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("Feuil2")
plg2 = Range("A5:I" & sh2.Cells(Rows.Count, "A").End(xlUp).Row).Address
rw1 = sh1.Cells(Rows.Count, "A").End(xlUp).Row + 1
plg1 = Range("A" & rw1 & ":I" & rw1 + Range(plg2).Rows.Count - 1).Address
sh1.Range(plg1).Value = sh2.Range(plg2).Value
End Sub

Salut Caje,

si j'ai bien compris...

Habitué aux contrôles ActiveX, j'ai remplacé ton contrôle.

Private Sub cmdOK_Click()
'
Dim iRow1%, iRow2%
'
iRow1 = Range("A" & Rows.Count).End(xlUp).Row
With Worksheets("Feuil1")
    iRow2 = .Range("A" & Rows.Count).End(xlUp).Row + 1
    .Range("A" & iRow2).Resize(iRow1 - 4, 9).Value = Range("A5").Resize(iRow1 - 4, 9).Value
    Range("A5").Resize(iRow1 - 4, 9).ClearContents
End With
'
End Sub

A+

merci beaucoup ça fonctionne encore merci