Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lg&
Select Case Target.Column
Case Range("Base").Columns(4[).Column To Range("Base").Columns(7).Column
FormatageCellulesTableBase Target, "F_Non_Cum" ' formatage des cellules des fonction non cumilable
Case Range("Base").Columns(8).Column To Range("Base").Columns(10).Column
FormatageCellulesTableBase Target, "F_Cum" ' formatage des cellules des fonction cumilable
Case Range("F_Non_Cum[fonctions non cumulables]").Column
TriTable "F_Non_Cum", "fonctions non cumulables"
Case Range("F_Cum[fonctions cumulables]").Column
TriTable "F_Cum", "fonctions cumulables"
' Case Range("Base[NOM]").Column
' TriTable "Base", "NOM"
End Select
End Sub