With .Range("A2:A" & .Range("A65536").End(xlUp).Row)
If .Cells.Count = 1 Then
CmbActeur.AddItem .Value
Else
CmbActeur.List = .Value
End If
End With
With .Range("B2:B" & .Range("B65536").End(xlUp).Row)
If .Cells.Count = 1 Then
CmbRéalisateur.AddItem .Value
Else
CmbRéalisateur.List = .Value
End If
End With
With .Range("C2:C" & .Range("C65536").End(xlUp).Row)
If .Cells.Count = 1 Then
CmbCatégorie.AddItem .Value
Else
CmbCatégorie.List = .Value
End If
End With