Sub authentification ()
dim auth, v_derniereligne
v_derniereligne = 100
For i = 1 To v_derniereligne
If Cells(i, 1) = "" Then
v_derniereligne = i - 1
Exit For
End If
Next
For auth = 1 to v_derniereligne
if environ("USERNAME") = Cells(auth,1) then
msg box "Accès validé !"
(action pour afficher les feuilles et les déprotéger)
Next
End sub