Sub CopierA2()
Dim bddLigne As Long
With ThisWorkbook
bddLigne = .Sheets("DATABASE").Cells(Rows.Count, 1).End(xlUp)(2).Row
.Sheets("DATABASE").Cells(bddLigne, 1).Resize(10).Value = .Sheets("CUTOFF").Range("B2").Value
' Copier / Collage spécial 'Valeurs'
.Sheets("CUTOFF").Range("B5:U5,B7:U7,B9:U9,B11:U11,B13:U13,B15:U15,B17:U17,B19:U19,B21:U21,B23:U23").Copy
.Sheets("DATABASE").Cells(bddLigne, 2).PasteSpecial xlPasteValues
.Sheets("DATABASE").Cells(bddLigne, 22).Resize(10).Value = .Sheets("CUTOFF").Range("Q1").Value
.Sheets("DATABASE").Cells(bddLigne, 23).Resize(10).Value = .Sheets("CUTOFF").Range("S1").Value
.Sheets("DATABASE").Cells(bddLigne, 24).Resize(10).Value = .Sheets("CUTOFF").Range("U1").Value
End With
End Sub