merci phlaurent mais sorry ça ne fonctionnement pas encore
voici ce que j ai mis dans la feuille accueil
Option Explicit
Sub defile()
Dim t$, n&, w, temp
t = "PROCES VERBAL DE NOTE DE B T S NIVEAU 1 ..."
n = 0
Do While n < 100
t = Right(t, Len(t) - 1) & Left(t, 1)...