Function HTML_pmo(Cellule1 As Range, Cellule2 As Range) As String
Dim Tete$
Dim Corps$
Dim Queue$
Tete$ = "<br><span style=" & Chr(34) & "font-size: 12px; font-weight: bold; color: rgb(229, 67, 146);" _
& Chr(34) & "><span style=" & Chr(34) & "font-size: 12px;" & Chr(34) & ">"
Corps$ = " €</span></span> <br><span style=" & Chr(34) & "font-size: 11px;" & Chr(34) & _
"><span style=" & Chr(34) & "font-size: 10px;" & Chr(34) & ">au lieu de<br><span style=" & Chr(34) & _
"font-weight: bold;" & Chr(34) & ">F"
Queue$ = " €</span></span></span><br><br><img src=" & Chr(34) & "../site/medias/15.png" & Chr(34) & " id=" & Chr(34) & _
"bordure_image_catalogue" & Chr(34) & " vspace=" & Chr(34) & "0" & Chr(34) & " width=" & Chr(34) & "37" & Chr(34) & _
" height=" & Chr(34) & "25" & Chr(34) & " hspace=" & Chr(34) & "0" & Chr(34) & "><br><br>"
HTML_pmo = Tete$ & Cellule1 & Corps$ & Cellule2 & Queue$
End Function