Private Sub CboAmortir()
Dim L As Long, Cel As Range
Me.ComboBox4.Clear
With Sheets("GESTION")
L = .[A65536].End(xlUp).Row
For Each Cel In .Range("M9:M" & L)
If Cel.Value = "" Then 'pas de date
Me.ComboBox4.AddItem .Cells(Cel.Row, 1).Value
Me.ComboBox4.List(Me.ComboBox4.ListCount - 1, 1) = Cel.Row
End If
Next Cel
End With
If Me.ComboBox4.ListCount = 0 Then Me.ComboBox4.AddItem "Pas de demande a amortir": Me.ComboBox4.ListIndex = 0
End Sub