Sub copier()
Dim L As Long
With Sheets("BDD")
L = .Range("C" & .Rows.Count).End(xlUp).Row + 1
End With
With Sheets("Inscription")
DerLig = .Range("A" & .Rows.Count).End(xlUp).Row
.Range("A2").Resize(DerLig - 1, 3).Copy Destination:=Sheets("BDD").Range("A" & L)
.Range("A2").Resize(DerLig - 1, 2).ClearContents
End With
End Sub