Macro copie la dernière ligne vide

Bonjour,

J’ai la macro suivante pour copier le taux de devise, dans cet exemple le CHF, à la dernière cellule vide la colonne E.

Néanmoins, je voudrai que le code puisse aussi me recopier les 3 derniers taux, soit ceux du 03/10 au 05/10/2014 des cellules R6 à R8 vers les cellules E8 à E10.

En fait, en 1er étape la macro me copie la dernière cellule vide de la colonne E et en 2è étape m’écrase les taux des 3 dernières lignes.

En vous remerciant de votre aide.

Sub Taux()

    Range("R5").Select
    Selection.Copy
    Range("E" & Range("E65535").End(xlUp).Row + 1).Select
    ActiveSheet.Paste
End Sub

Salut,

Voici une possibilité parmi d'autres :

Sub Taux()

Range("R5").Copy Range("E" & Range("E" & Rows.Count).End(xlUp).Row + 1)
Range("R6").Copy Range("E" & Range("E" & Rows.Count).End(xlUp).Row - 1)
Range("R7").Copy Range("E" & Range("E" & Rows.Count).End(xlUp).Row - 2)
Range("R8").Copy Range("E" & Range("E" & Rows.Count).End(xlUp).Row - 3)

End Sub

Cordialement.

Merci, cool.