Dim LaChaine, Reponse
LaChaine = "Bonjour pbfonjouom"
Reponse = Left(LaChaine, 1) ' Reponse = B
Reponse = Left(LaChaine, 7) ' Reponse = Bonjour
Reponse = Left(LaChaine, 14) ' Reponse = Bonjour pbfonj
Reponse = Left(LaChaine, 25) ' Reponse = Bonjour pbfonjouom