Bonjour

J'ai fait ce petit programme dans le cadre du travail
Vous y trouverez un bouton qui enregistre imprime et efface les données sur chaque feuille sauf le menu
Quand je clique sur le bouton de la feuille "ICL OUVRIERS TP", il me met le message suivant "Valeur tapée en dehors des limites"

Voici ma VBA :


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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub SaveFeuilleActive()
 Dim Sh As Shape
 ActiveSheet.Copy
 'Affiche la boîte de dialogue
 Application.Dialogs(xlDialogSaveAs).Show
 ActiveSheet.PrintOut
 For Each Sh In ActiveSheet.Shapes
 If Sh.Name Like "Button*" Then Sh.Delete
 Next Sh
 ActiveWorkbook.Save
 ActiveWorkbook.Close
 Select Case ActiveSheet.Name
 Case "ICL Cadres Métallurgie"
 Range("B1:B4,B6,B9,B10,B13,E3:E14,B40,B42").ClearC ontents
 MsgBox "les données sont effacées"
 Case "ICL Etam Ouvriers Métallurgie"
 Range("B1:B6,B9,B10,B13,E3:E14,B35,B37").ClearCont ents
 MsgBox "les données sont effacées"
 Case "ICL Ouvriers TP", "ICL Ouvriers Bâtiment"
 Range("B1:B4,B6,B9,B10,B13,E3:E15,B36,B38").ClearC ontents
 MsgBox "les données sont effacées"
 Case "ICL Cadres Intermittents", "ICL Non Cadres Intermittents"
 Range("B1:B4,B6,B9,B10,B14,E3:E14,B31,B33").ClearC ontents
 MsgBox "les données sont effacées"
 Case "ICL IAC Bâtiment", "ICL Etam Bâtiment", "ICL IAC TP", "ICL ETAM TP"
 Range("B1:B4,B6,B9,B10,B13,F3:F15,E14,B38,B40").Cl earContents
 MsgBox "les données sont effacées"
 Case "Ind Retraite IAC TP", "Ind Retraite IAC Bâtiment", "Ind Retraite ETAM TP", "Ind Retraite ETAM Bâtiment"
 Range("B1:B4,B6,B9,B10,F3:F14,E14").ClearContents
 MsgBox "les données sont effacées"
 Case "Ind Retraite Métallurgie", "Ind Retraite Intermittents"
 Range("B1:B6,B9,B10,F3:F14").ClearContents
 MsgBox "les données sont effacées"
 Case "Ind Retraite SYNTEC"
 Range("B1:B6,B9,B10,E14,F3:F14").ClearContents
 MsgBox "les données sont effacées"
 Case "ICL CADRES SYNTEC"
 Range("B1:B4,B6,B9,B10,B14,B31,B33,E3:E14").ClearC ontents
 MsgBox "les données sont effacées"
 Case "ICL ETAM SYNTEC"
 Range("B1:B4,B6,B9,B10,B13,B34,B36,E14,F3:F14").Cl earContents
 MsgBox "les données sont effacées"
 Case "ICL Exploit. Forest."
 Range("B1:B6,B9,B10,B14,B31,B33,E3:E14").ClearCont ents
 MsgBox "les données sont effacées"
 Case "Ind Retraite Exploit."
 Range("B1:B6,B9,B10,F3:F14").ClearContents
 MsgBox "les données sont effacées"
 End Select
 Sheets("Menu").Select
 Range("A1:L1").Select
 End Sub
Si je clique sur le même bouton de la feuille "ICL IAC TP", je n'ai pas de débogage.
Je joins mon fichier
Mot de passe pour débloquer les feuilles : rupture 2012

Je vous remercie pour l'aide que vous pourrez m'apporter

Cdt