Planning conges

[A2].FormulaR1C1 = "=OR(R[3]C16<>" & c & ",ISBLANK(R[3]C" & Target.Column & "))"
plage.AdvancedFilter xlFilterInPlace, [A1:A2]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c, ad1$, ad2$
On Error Resume Next
[Cellule].Interior.ColorIndex = xlNone
[Cellule].Validation.Delete
c = Cells(ActiveCell.Row, "P") 'compétence
If ActiveCell.Row < 5 Or ActiveCell.Column < 22 Or c = "" Then Exit Sub
ad1 = Range("P5:P" & [B65536].End(xlUp).Row).Address
ad2 = Cells(5, ActiveCell.Column).Resize(Range(ad1).Count).Address
[A2].Formula = "=SUMPRODUCT((" & ad1 & "=" & c & ")*NOT(ISBLANK(" & ad2 & ")))"
If CInt([A2]) + (ActiveCell <> "") > 0 Then
  ActiveCell.Interior.ColorIndex = 40
  With ActiveCell.Validation
    .Add xlValidateInputOnly
    .InputMessage = "Double-clic"
  End With
  Me.Names.Add "Cellule", ActiveCell
End If
End Sub