Sélection ciblée d'une plage de donnée puis collage

Salut le forum

J'ai un fichier comportant 2 feuilles (voir fichier joint).

- Dans la 1ère feuille, j'ai une plage de donnée : Facture_Pro!A30:I940.

Je souhaite pouvoir sélectionner une partie de la plage. la sélection commence en A30 et doit passer par la dernière cellule non vide de de la colonne B et se termine en I.

Exemple : supposons que la dernière ligne non vide de la colonne B = 68.

La plage à sélectionner sera donc A30:I68.

- Je souhaite maintenant pouvoir coller (insérer vers le bas) la sélection à partir de la cellule Facture_Réel!A30 de la feuille.

Merci pour vos contributions

Sub copie()

Dim i As Integer
i = Sheets("Facture_Pro").Range("B" & Rows.Count).End(xlUp).Row
Dim selection As String
selection = "A30:I" & i

Sheets("Facture_Pro").Range(selection).Copy Sheets("Facture_Réel").Range("A30")

End Sub

non teste

Bonjour

Un essai à vérifier

Salut Banzaï

Merci pour votre solution.

C'est trop cool et ce que je souhaitais réellement.