Excel Traitement colonne avec titres

Bonjour

Svp besoin d'une aide pour mettre en place une routine VBA me permettant de mettre en forme les données d'une page excel

Dans la colonne D présence de liens url entrecoupés de titres , je souhaiterai mettre les titres en face de chaque URL

Pour être plus explicite j'ai fait un fichier excel présentant 2 feuilles : feuille source et feuille cible du résultat souhaité

Ma version d'Excel Microsoft® Excel® pour Microsoft 365 MSO (Version 2301 Build 16.0.16026.20002) 64 bits

Merci d'avance

Bonjour INFSON ,

Testez le code suivant du module de la feuille "Cible".

Le tableau se met à jour quand on active la feuille "Cible".

Private Sub Worksheet_Activate()
Dim der&, i&, refTitre$, ligne$, x
  Application.ScreenUpdating = False
  With Sheets("CIBLE")
      Sheets("ORIGINE").Columns("a:L").Copy Columns("a:L")
      If .FilterMode Then .ShowAllData
      der = .Cells(.Rows.Count, "d").End(xlUp).Row
      For i = 2 To der
         If Cells(i, "d").Hyperlinks.Count = 0 Then
            refTitre = .Cells(i, "d")
            ligne = i & " " & ligne
         Else
            .Cells(i, "e") = refTitre
         End If
      Next i
      For Each x In Split(Trim(ligne)): .Rows(Val(x)).Delete: Next
      Application.Goto .Range("a1"), True
   End With
End Sub

Merci beaucoup

le code fonctionne parfaitement

je vais essayer de passer un peu de temps dessus pour comprendre comment il fonctionne