Sub MYmacro()
FinListe = Range("A" & Rows.Count).End(xlUp).Row
lg = 6
[e6:e65000].ClearContents 'pourquoi effacer la colonne E alors que c'est en G que tu écris?
For lig = 6 To FinListe
tx = Split(Cells(lig, 1), "-") 'créer un tablo avec le CP et Ville
Ville = Trim(tx(1)) 'on enlève les espaces avant et après la ville
CP = Trim(tx(0))
Dep = Left(CP, 2)
Fx = Replace("<td class=@td_text@> " & Ville & " <br>- " & CP & "</td>", "@", """")
Cells(lg, 7) = Fx
'Fx = "<td class=@td_image@><a href=@" & Ville & ".html@><img src=@../Blason_france/blason_alpha/" & Ville & "-" & Dep & ".jpg@ width=@95@ height=@120@ ></a></td>"
Fx = "<td class=@td_image@><a href=@" & Replace(Ville, " ", "_") & ".html@><img src=@../../dossier_armorial/Blason_france/blason_alpha/" & Replace(Ville, " ", "_") & "-" & Dep & ".png@ width=@95@ height=@120@ ></a></td>"
Fx = Replace(Fx, "@", """")
Cells(lg + 6, 7) = Fx
lg = lg + 1: i = i + 1
If i = 5 Then
'k = k + 1: Cells(lg, 4) = "--->>> " & k
k = k + 1: Cells(lg, 4) = "</tr><tr>": Cells(lg - 6, 4) = "<tr> <!-- " & k & " -->"
lg = lg + 7: i = 0
End If
Next lig
End Sub