Bonjour à toutes et tous.

dans mon appli je prend toutes les lignes non vide en colonne A. quand j'arrive aprés la derniére ligne non vide
J'ai les lignes normal d'Excel non actives.
Je cherche le moyen de sortir de la boucle aprés ma derniére ligne, je met en exemple ma boucle car j'ai du mal a envoyer un fichier joint. d'avance merci si quelqu'un me donne la soluce.
---------------------------------------------------------------------
 Dim j As Integer
j = 1
With Feuil3
    For Each lg In .UsedRange.Rows
'pour chaque ligne de la colonne A
    If Application.Max(.Range("A" & lg.Row).EntireRow) <> " " Then
'si la valeur est differente de rien
           Sheets("Feuil3").Select
' copier les cellules a,b,c,d feuil3
           Range("A" & j, "D" & j).Select
           Selection.Copy
           Sheets("Données").Select
' allez Feuil=données, coller dans a2,b2,c2,d2
           Range("A2").Select
           Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
           SkipBlanks:=False, Transpose:=False
           j = j + 1
           End If
       Next
   End With

----------------------------------------------------------------------

Bonsoir ramarc,

Regarde si le code te convient.
Ramac que veux-tu faire exactement ?

@+Jean-Marie 

Bonjour,
Merci  pour ton aide.
En fait je pense que le test :

If Application.Max(.Range("A" & lg.Row).EntireRow) <> " " Then

Ne fonctionne pas, j'utilise ce test pour sortir de ma boucle quand on atteint la fin du tableau c'est à dire la derniére ligne ou il y a quelque chose, aprés c'est les lignes vide de la feuille. 
En faisant le débogage je voit qu'il se contante de prendre toutes les lignes de 1 à la fin de la feuille.
avec ce test je veux qu'il sélectionne toutes les lignes active et quand il rencontre la ligne vide il sort de la boucle.
si il y a un autre moyen de prendre que les lignes actives ???
Cordialement.   
           

Bonsoir ramarc, JeanMarie, le Forum,

Tout comme l'ami JeanMarie : pas sûr d'avoir tout compris dans le traitement souhaité...

A défaut d'explications claires, tu peux peut-être essayer ça :

Cordialement,

Bonjour a tous, et merci, j'ai fait comme cela et ça fonctionne.

j = 1
' Teste le contenu de la cellule active, si celle-ci est vide, sort de la boucle.
      Do Until IsEmpty(ActiveCell)
          Sheets("Feuil3").Select
' copier les cellules a,b,c,d feuil3
           Range("A" & j, "D" & j).Select
           Selection.Copy
           Sheets("Données").Select
' allez Feuil=données, coller dans a2,b2,c2,d2
           Range("A2").Select
           Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
           SkipBlanks:=False, Transpose:=False
' Affiche le contenu des cellules dans un message.
           MsgBox ActiveCell.Value
           Sheets("Feuil3").Select
           Range("A" & j).Select
           ActiveCell.Offset(1, 0).Select
         ' Passe à la cellule suivant 1 ligne en dessous.
'         ActiveCell.Offset(1, 0).Select
j = j + 1
        ' Retourne au début de la boucle.
      Loop