Bonjour, j'ai un check box qui doit insérer une image dans les pieds de page de mes feuilles Excel 2010. Mais, certaines pages n'ont pas d'images, d'autres l'ont toujours même si le Check Box est inactif. Je tourne en rond sur ce débogage, est-ce que quelqu'un pourrais m'aider ?

PRÉCISION: au départ certaines feuilles ne devaient pas avoir l'image en pied de page, mais ce n'est plus une exigence, tout de même voici l'organisation des feuilles :

DATA / puis 4 feuilles qui se répètent 26 fois.
Ex.: DATA | Commande-A | Liste-A | 4x6 M-A | 4x6 A-A | Commande-B | Liste-B | 4x6 M-B | 4x6 A-B | Commande-C... ainsi de suite jusqu'à Z.

Voici le code du Check Box puis à la fin le code de l'image qui est dans la même feuille soit DATA.
-------------------------------------------------------------------------------
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
Private Sub CheckBox1_Click() 
 Dim strPath As String 
 Dim nTotSheets As Integer 
 Dim n As Integer 
 Dim nComm As Integer 
 
 nTotSheets = ThisWorkbook.Sheets.Count 
 n = Int((nTotSheets - 2) / 4) 
 
 strPath = "C:\testfooter.jpg" 
 SavePicture Worksheets(1).Image1.Picture, strPath 
 
 For m = 1 To n 
 nComm = 4 * (m - 1) + 3 
 If Worksheets(1).Range("G7") = True Then 
 strPath = "C:\testfooter.jpg" 
 Else 
 strPath = "" 
 End If 
 With Worksheets(nComm).PageSetup 
 .RightFooterPicture.Filename = strPath 
 .RightFooter = "&G " 
 .LeftFooter = "" 
 End With 
 Next m 
 
 If Len(strPath) > 0 Then 
 Kill strPath 
 End If 
 
 nTotSheets = 0 
 nComm = 0 
End Sub
-----------------------------------------------------------------------------------

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Image1_Click() 
 
End Sub
------------------------------------------------------------------------------------

MERCI D'AVANCE