Sub test_III()
Dim vUser$
ActiveSheet.Unprotect
Cells.Locked = True
Cells.FormulaHidden = True
vUser = Application.UserName
Select Case vUser
Case Is = "odohe" '-< correspond exactement à Application.UserName
'donc remplacer par la valeur de Application.UserName pour ma session c'est odohe
Range("J3:J30,M3:O30").Locked = False
Range("J3:J30,M3:O30").FormulaHidden = True
Case Is = "Titi"
MsgBox "code pour VBA pour Titi"
Case Else
MsgBox "code pour VBA pour les autres"
End Select
ActiveSheet.Protect
End Sub