Private Sub Worksheet_selectionChange(ByVal Target As Range)
Target = Cells(4, 1)
If Cells(4, 1) <> "Présent" Then
Application.EnableEvents = False
If Range("C7:C8") = "" Then
MsgBox "Renseignez d'abord la colonne Présence de la feuille Accueil, merci !"
Target = ""
End If
Application.EnableEvents = True
End If
End Sub