Bonjour
Je souhaite alimenter une ComboBox à 2 colonnes avec le code suivant

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
Sub FCombo()
 
    Dim i As Integer
 
    Sheets("Event").Select
    Sheets("Event").Unprotect
        Sheets("Event").ComboBox1.Clear  ' ==> erreur
 
    LColCombo = Sheets("Inscriptions").Cells(6, Columns.Count).End(xlToLeft).Column
 
    For i = 8 To LColCombo
       Range("XFC" & i - 7) = Sheets("Inscriptions").Cells(6, i)
       Range("XFD" & i - 7) = Sheets("Inscriptions").Cells(3, i)
    Next
 
    RColCombo = Cells(Rows.Count, "XFC").End(xlUp).Row
 
    Sheets("Event").ComboBox1.ListFillRange = Sheets("Inscriptions").Range("XFC1:XFD" & RColCombo) '==> Erreur
 
End Sub
Pourriez-vous m'aider ?
Merci d'avance