Problème avec la Fonction UsedRange

Bonjour,

Dans ma macro j'ai ajouté cette instruction :

Set MaPlage = Worksheets("Feuil3").UsedRange

Malheureusement je ne récupère pas du tout ce que je souhaite, j'obtiens toute la feuille Excel avec les retour à la ligne y compris.

J'aimerai qu'il me récupère toutes les lignes qui vont de A à G et jusqu'à la dernière ligne correspondant à une donnée (ne pas prendre si y a rien).

Merci

Bonjour,

Teste comme ceci

Dim Dl%, MaPlage As Range
Dl = Worksheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne A
Set MaPlage = Worksheets("Feuil3").Range("A1:G" & Dl)

Merci tu es un génie M12 !