Function Qui(Cel As Range)
Application.Volatile
Dim nLi As Integer
With Sheets("Liste Des Employés")
If Cel.Row Mod 10 = 1 Then
n = Int(Cel.Row / 10) * 2 + 1
Qui = IIf(.Cells(nLi, 1) = "", "*", .Cells(nLi, 1))
Else
Qui = ""
End If
End With
End Function