Sub Bouton2_QuandClic()
With Sheets("formulaire")
Sheets("base de donnée").Range("a65000").End(xlUp).Offset(1, 0) = .Range("c16")
Sheets("base de donnée").Range("a65000").End(xlUp).Offset(0, 1) = .Range("C9")
Sheets("base de donnée").Range("a65000").End(xlUp).Offset(0, 2) = .Range("H7")
Sheets("base de donnée").Range("a65000").End(xlUp).Offset(0, 3) = .Range("H9")
Sheets("base de donnée").Range("a65000").End(xlUp).Offset(0, 4) = .Range("H11")
End With
End Sub