Sub balise()

Dim DernLigne As Long

DernLigne = Range("A" & Rows.Count).End(xlUp).Row

A = DernLigne

Dim numfile As Integer

Charset = "UTF-8"

numfile = FreeFile

Open "C:\Users\youssef\Desktop\align2.tmx" For Output As #numfile

Print #numfile, "<?xml version=""1.0"" encoding=""ISO-8859-1""?>"

Print #numfile, "<tmx version=""1.1"">"

Print #numfile, "<header creationtool=""Bitext2tmx"" creationtoolversion=""0.91""

segtype=""sentence"" o-tmf=""Bitext2tmx"" adminlang=""en"" srclang=""fr""

datatype=""PlainText"" o-encoding=""UTF-8"">"

Print #numfile, "</header>"

Print #numfile, "<body>"

For i = 2 To A

If Cells(i, 1) <> "" Then

Print #numfile, "<tu tuid='" & i - 2 & "' DataType = ""Text"">"

Print #numfile, "<tuv xml:lang=""fr"">"

Print #numfile, "<seg>" & Cells(i, 1) & "</seg>"

Print #numfile, "</tuv>"

Print #numfile, "<tuv xml:lang=""en"">"

Print #numfile, "<seg>" & Cells(i, 2) & "</seg>"

Print #numfile, "</tuv>"

Print #numfile, "</tu>"

End If

Print #numfile, "</body></tmx>""

Close #numfile

End Sub