Copier coller avec condition

Bonjour,

J'ai besoin de votre aide svp. J'ai fais des recherche sur internet mais je n'ai pas résolu mon prblème!

je souhaiterai savoir comment je peux coller la selection de la de la feuil2 dans feuil 1 à partir du la première case vide dans B (Feuil1).

J'ai trouvé comment seclectionner et copier après passer à la Feuil1 mais je n'ai pas trouvé comment coller la selection dans la premiere case vide de la colonne B.

Merci par avance

Sub copcol ()

Sheets("Feuil1").Select

Range("A1:C11").Select

Selection.Copy

Sheets("Feuil2").Select

Bonjour

Comme ton code contredit tes explications

La copie se fait de la Feuil2 vers la Feuil1

Sub copcol()
  Sheets("Feuil2").Range("A1:C11").Copy Sheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
End Sub

Merci beaucoup. C'est ce que je cherche.

Bonne fin de journée

Bonjour,

Sub copie()

Dim Desti As Range

Dim Depart As Range

Set Depart = Sheets("feuil2").Range("A1:C11")

Set Desti = Sheets("Feuil1").Range("B65000").End(xlUp)(2)

Depart.Copy Desti

End Sub

Merci