{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["Registre du personnel"],"not_rendered":{"charts":0,"images":0,"macros":1,"external_links":1,"defined_names":4,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Registre du personnel","index":0,"n_rows":53,"n_cols":4,"rows_kept":53,"cut":false,"hidden":false,"merged":[[0,0,0,1]]}
[]
["Nom","Prénom"]
["DUBROILLE","Julien"]
["BRURANTAU","Marie"]
["KRATZ","Arnaud"]
["GALER","Cécile"]
["BRURANTAU","Marie"]
["GALER","Cécile"]
["BOUKEY","Carole"]
["RAMI","Alain"]
["LAFIN","Julien"]
["GASTON","Damien"]
["GRATO","Jules"]
["SAMSON","Philippe"]
["LABEVUE","Bertrand"]
["CICZ","Stéphanie"]
["KATR","Christophe"]
["BOROU","Michel"]
["SAMSON","Philippe"]
["RAMI","Alain"]
["KRATZ","Arnaud"]
[]
[null,null,null,"Sub supdoublon()"]
[null,null,null,"'fait par willy"]
[]
[null,null,null,"Dim MaCell As Range"]
[null,null,null,"Dim MaCellSuite As Range"]
[]
[null,null,null,"Application.ScreenUpdating = False"]
[null,null,null,"lignemax = Range(\"B65000\").End(xlUp).Row"]
[]
[null,null,null,"Range(\"A3:B\" & lignemax).Select"]
[null,null,null,"Selection.Sort Key1:=Range(\"A3\"), Order1:=xlAscending, Header:=xlGuess, _"]
[null,null,null,"OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _"]
[null,null,null,"DataOption1:=xlSortNormal"]
[]
[]
[null,null,null,"Set MaCell = Range(\"A3\")"]
[]
[null,null,null,"Do While Not IsEmpty(MaCell)"]
[null,null,null,"    Set MaCellSuite = MaCell.Offset(1, 0)"]
[null,null,null,"    "]
[null,null,null,"    If MaCellSuite.Value = MaCell.Value Then"]
[null,null,null,"    MaCell.EntireRow.Delete: k = k + 1"]
[null,null,null,"    End If"]
[]
[null,null,null,"Set MaCell = MaCellSuite"]
[null,null,null,"Loop"]
[null,null,null,"MsgBox k & \" Doublon(s) trouvé(s) dans la liste\", vbInformation, \"Doublons supprimés\""]
[null,null,null,"Application.ScreenUpdating = True"]
[null,null,null,"Range(\"A2\").Select"]
[]
[null,null,null,"End Sub"]