dim a as string
a = "" ' remise à zero de a
for i = 1 to len(range("L11")) ' controle tous les caracteres de la cellule L11
' si majuscule du caractere = caractere alors ok je garde et j'ajoute
if ucase(mid(range("L11"),i,1))=mid(range("L11"),i,1) then a = a & mid(range("L11"),i,1)
next i ' prochain caractere
' si le premier caractere est une apostrophe, je met une apstrophe dans a
if left(range("L11"),1)="'" then a = "'"