With Sheets("liste1")
Me.ComboBoxliste1G1.List = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Value
Me.ComboBoxliste1G2.List = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Value
End With
With Sheets("liste2")
Me.ComboBoxliste2G1.List = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Value
Me.ComboBoxliste2G2.List = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Value
End With