'Insertion de la personne dans l'onglet du département
j = 3
While Not Worksheets(Dpt.Value).Cells(8, j).Value = "Expositions"
j = j + 1
Wend
'enlever l'option du filtre
Worksheets(Dpt.Value).Columns(j).AutoFilter
'ajout d'une colonne correspondant à la personne
Worksheets(Dpt.Value).Columns(j).Insert Shift:=xlToRight
Worksheets(Dpt.Value).Columns(j).ColumnWidth = 5#
'remettre l'option du filtre
Worksheets(Dpt.Value).Rows(9).AutoFilter
Worksheets(Dpt.Value).Cells(7, j).Value = Section.Value
Worksheets(Dpt.Value).Cells(8, j).Value = Initiale.Value
Worksheets(Dpt.Value).Cells(9, j).Value = indice