Bonjour à tous,
 
J'ai une boucle qui me permets de dupliquer le titre d'une colonne d'un TCD excel et quand le titre change, le dupliquer change aussi.
Mais une fois que j'arrive à la fin (cellule vide dans D4), la boucle s'arrête ce qui est normal mais la macro ne continue pas la suite.
 
Pouvez vous m'aider SVP
 
  'Copier les noms d'agence'
    Dim Ligne As Integer
    Dim Référence As String
 
    Range("D4" ).Activate
    ActiveCell.End(xlDown).Activate
    Ligne = ActiveCell.Row
 
    Range("A5" ).Activate
    Référence = ActiveCell.Value
    ActiveCell.Offset(1, 0).Activate
 
    Do While ActiveCell.Row <> Ligne
        Do While ActiveCell.Value = 0
            ActiveCell.Value = Référence
            ActiveCell.Offset(1, 0).Activate
            If ActiveCell.Row > Ligne Then
                Exit Sub
                    End If
    Loop
    Référence = ActiveCell.Value
    ActiveCell.Offset(1, 0).Activate
     
    Loop
   
     
        'Mise en place de filtres'
    Range("A4" ).Select
    Selection.AutoFilter
    Columns("A:N" ).EntireColumn.AutoFit

Le Exit Sub est peut être la raison?

déjà essayer mais cela ne fonctionne pas non plus  

 
            avec boomy29 ‼
 

ce que tu peux commencer par faire c'est enlever tes activecell (cf les cours de Marc L ^^)
 
par exemple  
 
 Range("D4" ).Activate
ActiveCell.End(xlDown).Activate
Ligne = ActiveCell.Row
 
tu peux mettre  
Ligne  = Range("D4" ).End(xlDown).Row
 
ensuite pour ton soucis  
commente le exit sub ou remplacer par exit do ( si ça existe) voir si ça te convient mieux, si tu passes par la suite de ton code

Oui, remplacer le exit sub par exit do

exit do, pas pensé je test et je vous tiens au courant. Merci les gars

ni exit sub ni exit do fonctionne pour faire la suite  

En fait, je ne vois pas trop où tu veux en arriver...
As tu essayé d'exécuter ton code en pas à pas (touche F8) en analysant pourquoi ça ne va pas comme tu veux ?

F8 fait, mais rien d'anormal

C'est quoi que tu appelles "rien d'anormal" ?
 
En pas à pas, ça sort bien de la boucle et continue la macro ?

je me suis mal exprimé effectivement, qd il arrive à la fin de la liste, il sort bien du premier loop, mais il ne part pas sur le reste de la macro (ce qui se trouve derrière le deuxième Loop). et j'ai pas d'erreur

 
           Cela marche bien chez tout le monde sauf toi, donc soit ton classeur est endommagé
           (dans ce cas repart de zéro dans un nouveau classeur), soit …  
           On aimerait voir ton code avec les lignes numérotées, y a l'icône pour le code C à cet effet comme préconisé dans les règles du forum !