'copie A1 en B1 (même onglet)
Range("A1").Copy Destination:=Range("B1") 'format, valeur, etc...
Range("B1").Value = Range("A1").Value 'que la valeur
'copie A1 dans la première cellule vide recontrée de la colonne B (même onglet)
Range("A1").Copy Destination:=Range("B65536").End(xlUp).Offset(1, 0)
'copie A1 dans la première cellule vide recontrée de la colonne B (onglets différents)
Sheets("Feuil1").Range("A1").Copy Destination:=Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)