Sub testURLBBCODE_II()
Dim dl&
Dim Prefix$, sURL$, NomFilm$, sNotation$, sPrix$, sFin$, BBCODE$
Dim c As Range
sPrefix = "[URL="
dl = Cells(Rows.Count, "A").End(xlUp).Row
For Each c In Range("A2:A" & dl)
sURL = c.Text &"]
[*]"
NomFilm = c.Offset(, 1).Text
sNotation = " Note : " & c.Offset(, 2).Text
sPrix = "[#FF6300]" & c.Offset(, 3).Text & "[/#FF6300]"
sFin = "[/URL]"
BBCODE = sPrefix & sURL & "[B]" & NomFilm & sNotation & sPrix & "[/B]" & sFin
Cells(c.Row, "E") = BBCODE
Next c
End Sub