Bonjour Yeahou, Tcho !,JCA06
Voici une partie de mon code :
Sheets('BD').Select
Range('C2').FormulaR1C1 = '=CONCATENATE(RC[-2],'' '',''/'','' '',RC[-1])'
Range('A2').Select
Selection.Copy
Sheets('Lundi').Select
Range('T8').Select
Selection.Insert Shift:=xlDown
Range('T8:T100').Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range('T8'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets('BD').Select
Rows('2:2').Select
Selection.Cut
Rows('500:500').Select
ActiveSheet.Paste
Range('A10:AL500').Select
Range('A500').Activate
Selection.Sort Key1:=Range('A10'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets('Lundi').Select
Range('E48').Select
ActiveCell.FormulaR1C1 = '=COUNTA(R[-40]C[15]:R[70]C[15])'
Range('E47').Select
ActiveCell.FormulaR1C1 = '=COUNTA(R[-39]C[17]:R[71]C[17])'
Range('A1').Select
bail_abnt.Hide