PERMET DE REFORMATER UN CHAMP TEXTE SUR UNE LARGEUR DE PAGE DÉFINIE

    Public Function Paginate(ByVal Texte As String, ByVal Column As Integer) As String
        ' Formatage d'un mémo en formatant la longeur de ligne à un nombre 
        ' de colonne prédéterminé
        Dim i As Integer
        Dim s As String
        Dim c As Char
        Dim counter As Long = 0

        For i = 0 To Texte.Length - 1
            counter += 1
            c = Texte.Substring(i, 1)
            If counter > Column And c = " " Then
                ' On dépasse la longeur de ligne authorisé on ajoute des retours
                ' si on est juste sur un blanc
                s += Chr(13)
                counter = 0
            End If
            If counter > Column + 10 Then
                ' Si on dépasse de plus de 10 caractère on force un retour
                s += Chr(13)
                counter = 0
            End If
            If c = Chr(10) Or c = Chr(13) Then
                ' Si on à trouvé un retour on réinitialise à zéro
                counter = 0
            End If
            s += c
        Next

        Return s

    End Function