Une question sur Do Until Loop

Bonjour à tous,

J' ai besoin de vos aides svp. I need your help!!

ci-joint le fichier en question.

Objectif: Trouver des lignes des vols avec le même numéro de vol en même jour. (Colonne "E") .

Contexte: il existe 2 cas principaux:

• cas1: nombre de ligne d'un vol<=4
• cas2: nombre de ligne d'un vol>4: dans ce cas-ci, la macro tourne dans une sous-boucle.

Problème: lorsque cas 2 est fini, macro devrait revenir au cas1, mais le curseur n'arrive pas sortir de la sous- boucle.

mon fichier joint peut compléter mon explication.

Bonjour

Problème de sortie modifies cette partie de macro

.
.
.
        If kk = d Then
          Cells(d + 1, 5).Select  
          Exit Do
          'ActiveCell = Cells(d + 1, 5)   'ICI: j'arrive pas déplacer le curseur de colonne "A" à "E"
        End If
      Loop
    ElseIf h = 2 Then
.
.
.

Wahoo...ça marche super bien,

merci Banzai, t'est trop fort!