leDoc.Content.Find.Execute findtext:="<BALISE40>", ReplaceWith:=ad & vbCrLf & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & dc & vbCrLf & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & "-" & " " & ComboBox12.Value & vbCrLf & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & "-" & " " & ComboBox13.Value, Replace:=wdReplaceAll