Private Sub UserForm_Initialize()
Dim Bcle&, Cel As Range, ArrTb
Set ColTb = New Collection
ArrTb = Array(TextBDate, TextBNom, TextBPrenom, ComboBArret, ComboBPoste, TextBAS1, TextBAS2)
For Bcle = 0 To UBound(ArrTb)
ColTb.Add ArrTb(Bcle), ArrTb(Bcle).Name
Next Bcle
With F1
Set PlageBase = .Range("B3", .Range("B3").End(xlDown))
End With
With SpinBBase
.Min = 1
.Max = PlageBase.Rows.Count
.Value = 1
End With
ChargeListArret
ChargeListPoste
Me.TextBDate.Value = Date
Me.TextBDate.SelStart = 0
Me.TextBDate.SelLength = Len(Me.TextBDate.Value)
End Sub