dim s as string : s = "bijour" dim n as byte : n = 2 ' nombre de caractères à supprimer s = left(s, len(s) - n) ' ou s = mid( s,1,len(s)-n )