bonjour

j'ai un macro qui fonctionne mal, pouvez vous m'aider j'utilise excel 2010

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub*Vire_me_la()* 
                 Dim*a,*b,*c,*d,*e,*f,*g,*h,*i,*j,*k,*l*As*Integer* 
                 On*Error*Resume*Next* 
                 For*a*=*65*To*66* 
                 For*b*=*65*To*66* 
                 For*c*=*65*To*66* 
                 For*d*=*65*To*66* 
                 For*e*=*65*To*66* 
                 For*f*=*65*To*66* 
                 For*g*=*65*To*66* 
                 For*h*=*65*To*66* 
                 For*i*=*65*To*66* 
                 For*j*=*65*To*66* 
                 For*k*=*65*To*66* 
                 For*l*=*32*To*126* 
                 ActiveSheet.Unprotect*Chr(a)*&*Chr(b)*&*Chr(c)*&*Chr(d)*&*Chr(e)*&*Chr(f)*&*Chr(g)*&*Chr(h)*&* 
                 Chr(i)*&*Chr(j)*&*Chr(k)*&*Chr(l)* 
                 If*ActiveSheet.ProtectContents*=*False*Then* 
                 MsgBox*"La*protection*de*la*feuille*a*été*enlevée*avec*succès*!"*&*Chr(10)*&*Chr(10)*&**"Les* 
                 caractères*qui*ont*réalisé*cette*prouesse*sont*:"*&*Chr(10)*&*Chr(10)*&*Chr(a)*&*Chr(b)*&*Chr(c)* 
                 &*Chr(d)*&*Chr(e)*&*Chr(f)*&*Chr(g)*&*Chr(h)*&*Chr(i)*&*Chr(j)*&*Chr(k)*&*Chr(l),*vbInformation,* 
                 "C’est*fait*!"* 
                 Exit*Sub* 
                 End*If* 
                 Next* 
                 Next* 
                 Next* 
                 Next* 
                 Next* 
                 Next* 
                 Next* 
                 Next* 
                 Next* 
                 Next* 
                 Next* 
                 Next* 
                 End*Sub*
merci