|    Page 2 of 10    |

Private Sub UserForm_Initialize()

     With Sheets( "Feuil1" ).Range( "A1" )

          Me.ComboBox1.RowSource = "Feuil1!A1:B" & Sheets( "Feuil1" ).Cells( 1 , 1 ).End(xlDown).Row

     End With

End Sub

' **********************

' Avec une autre syntaxe

' **********************

Private Sub UserForm1_Initialize()

     With Sheets( "Feuil1" ).Range( "A1" )

          Me.ComboBox1.RowSource = Range(.Cells, .End(xlDown)( 1 , 2 )).Address(External:= True )

     End With

End Sub




|    Page 2 of 10    |