Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For c = 7 To 13 Step 2
If Cells(4, c).Value = "Pas de délib" Then
Range(Cells(6, c + 1), Cells(22, c + 1)).Value = "x"
End If
If Cells(4, c).Value = "Délibérations" Or Cells(4, c).Value = "" Then
Range(Cells(6, c + 1), Cells(22, c + 1)).Value = ""
End If
Next
End Sub