Private Sub WriteRecord(ByVal RecordNumber As Long)
Dim i&, ref&
' Ecriture de l'enregistrement
Me.cboMember.ListIndex = -1
RecordNumber = RecordNumber + 1
'Recherche de la nouvelle valeur de l'enregistrement.
With Sheets("HISTORIQUE Global")
i = 2
Do While .Cells(i, "A").Value <> ""
If Left(.Cells(i, "A").Text, 1) = "F" Then ref = Replace(.Cells(i, "A").Value, "F", "")
i = i + 1
Loop
End With
With rng
With .Cells(RecordNumber, 1)
If Len(.Value) = 0 Then ' ID
.Value = "F" & Format(ref + 1, "000")
End If
End With