Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C4:R18")) Is Nothing Then
Droits = 0
Colonne = Target.Column
Select Case Colonne
Case 3, 4, 5, 6
Contenu = Cells(Target.Row, 3) & Cells(Target.Row, 4) & Cells(Target.Row, 5) & Cells(Target.Row, 6)
If Contenu = "" Then Droits = 1
Case 7, 8, 9, 10
Contenu = Cells(Target.Row, 7) & Cells(Target.Row, 8) & Cells(Target.Row, 9) & Cells(Target.Row, 10)
If Contenu = "" Then Droits = 1
Case 11, 12, 13, 14
Contenu = Cells(Target.Row, 11) & Cells(Target.Row, 12) & Cells(Target.Row, 13) & Cells(Target.Row, 14)
If Contenu = "" Then Droits = 1
Case 15, 16, 17, 18
Contenu = Cells(Target.Row, 15) & Cells(Target.Row, 16) & Cells(Target.Row, 17) & Cells(Target.Row, 18)
If Contenu = "" Then Droits = 1
End Select
If Droits = 1 Then
Target = "X"
Else
Cells(Target.Row, 2).Select
End If
End If
End Sub