Sheets("création").Range("E6:E17").Copy
With Sheets("BD").Range("C65000").End(xlUp).Rows
.Offset(1, 0).PasteSpecial Paste:=xlValue, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
.Offset(1, 12).FormulaR1C1 = Date
'.Offset(1, -1) = Application.WorksheetFunction.Max(Range("B2", Range("B2").End(xlDown)))proposition mth
[B].Offset(1, -1) = Application.WorksheetFunction.Max(Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row))