Dim count As Integer = 2 ' Le nombre de caractères à supprimer depuis la fin Dim txt As String = "Bonjour" ' Le texte Dim val As String = txt.Substring(0, txt.Length - count) ' Suppression