Bonjour le Forum

Mon probleme :
Dans un classeur excel 2007, j'ai un nombre variable de feuilles.
Je souhaite faire un code vba me permettant de consolider les feuilles choisies par une listbox (multiselect) sachant que les cellules sont toujours les mêmes.

Je bloque sur le code suivant qui me renvoie toujours des erreurs de type 9 ou autres.

pouvez vous m'aider?

Mon code :
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
Private Sub LBChoix_Change()
Dim MaListe As String, i As Byte, sh As Worksheet, n As Byte
MaListe = ""
With Me.LBChoix
 
        For i = 0 To .ListCount - 1
 
            If .Selected(i) Then
            MaListe = MaListe & fmChoixFeuille.LBChoix.List(i) & "!R8C22:R16C42" & ","
            End If
 
        Next i
 
  End With
 
End Sub
 
Private Sub CmdValid_Click()
 
 
Sheets("Saisie (2)").Range("U8").Consolidate Sources:=MaListe, Function:=xlSum, TopRow:=True, LeftColumn _
            :=True, CreateLinks:=False
 
End Sub
Bien cordialement