Comment puis-je déplacer un "intitulé" dans une des colonnes des lignes qui suivent

2 – Lorsqu’on rentre sur un fil, comme dans la vie de tous les jours, on est poli en disant « Bonjour ».

Cliquez pour agrandir...

Sub a()
Dim dl&
dl = Cells(Rows.Count, 2).End(xlUp).Row
With Range("A1:A" & dl)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
Columns("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

huotg01 à dit:

ps: crois-tu possible de séparer le nom de la rue, et le type de rue (croissant, rue, boulevard) dans deux colonnes A et un "nouveau B)?

Cliquez pour agrandir...

• sélectionner la colonne A
• Appuyer sur F5 : cliquer sur Cellules, puis cellules vides, OK
• Taper la formules suivante :
  Code:

  =SI(A1<>"Rue";A1;"")

  et valider par CTRL Entrée
• sélectionner la colonne A
• Copier, collage spécial valeur
• Filtrer le tableau sur les vides de la colonne B
• Supprimer ces lignes
• Défiltrer le tableau