Re,
Dan a noté (merci à lui):
If UCase(Sheets(i).Name) <> "ACCUEIL"
UCase("Accueil") = UCase("accueil") = UCase("acCuEil")= UCase("acceuIL")= ACCUEIL
c'est juste pour s'assurer que le nom Acceul sera toujours pris en consideration.
Sinon on peut aussi utiliser l'inverse
If LCase(Sheets(i).Name) <> "accueil"