Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B4].Select
Application.EnableEvents = False
Select Case True
Case Target.Count > 1
Case [B4].Value = "ADMIN"
Sheets("ADMIN").Select
Case [B3].Value = "existe"
Sheets("SAISIE").Select
Case [B3].Value = "n'existe pas"
[B4].ClearContents
[B4].Select
End Select
Application.EnableEvents = True
End Sub