Sub Initialisation()
Dim i As Integer, j As Integer
Dim Cel As Range
Dim Entree As String
Set Cel = Worksheets('EdT Prof 2005 - 2006 Sem A').Range('A2')
For i = 0 To Cel.End(xlDown).Row - 1
Entree = Cel.Offset(i)
With Interface
For j = 0 To .Prof_Nom.ListCount - 1
If .Prof_Nom.List(j) > Entree Then
Exit For
End If
Next j
.Prof_Nom.AddItem Entree, j
End With
Next i
Worksheets('Absences 2005 - 2006').Select
Interface.Jour = Cel.End(xlDown).Row - 1
End Sub