ub efface()
Application.ScreenUpdating = False
On Error Resume Next
For Each i In Range("C12:AF31")
If i.Column > 2 And i.Row > 3 Then
coul_lig = i.Offset(0, -(i.Column - 2)).Interior.ColorIndex
coul_col = i.Offset(-(i.Row - 2), 0).Interior.ColorIndex
i.Value = Empty
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
If coul_lig = xlNone Or coul_lig = 2 Then
i.Interior.ColorIndex = xlNone
Else
i.Interior.ColorIndex = coul_col
End If
End If
Next i
End Sub
Sub Define_Nom()
ActiveWorkbook.Names.Add Name:="Personnel", RefersTo:="=Tableau!$c$12:$af$31"
ActiveWorkbook.Names.Add Name:="Entete_Asso", RefersTo:="=Tableau!$c$11:$ai$11"
End Sub
=NB.SI(INDEX(Tableau!$12:$31;;EQUIV(I$5;Tableau!$9:$9)+LIGNE()-6);"*")