Bonjour, merci de ta reponse.
Malheuresement ca ne marche pas ca m indique une erreur. Un autre code?
Sub coller()
If MsgBox("Are you sure to validate?", vbOKCancel, "Confirmation") = vbOK Then
Range(Cells(3, 1), Cells(3, 8)).Copy
Cells(3, 11).Copy
lignedeb_tableau_ou_coller = 6 'num de d閎ut du tableau o?coller
Application.ScreenUpdating = False 'd閟active l'affichage pour permettre un gain de vitesse
Application.Calculation = xlCalculationManual 'd閟active l'autocalcul pour 関iter des recalculs inutile ?ce moment de cette action
If IsEmpty(Cells(lignedeb_tableau_ou_coller, coldebacoller).Value) = True Then 'si 1er cellule du tableau o?coller vide alors
transvaser = Range(Cells(lignacoller, coldebacoller), Cells(lignacoller, colfinacoller)).Value
Range(Cells(lignedeb_tableau_ou_coller, coldebacoller), Cells(lignedeb_tableau_ou_coller, colfinacoller)).Value = transvaser
Else
lignedeb_tableau_ou_coller = Cells(100000, coldebacoller).End(xlUp).Row + 1 'd閒inir derni鑢e ligne du tableau o?coller, ?partir de la derni鑢e cellule vide de la 1er colonne de ce tableau
transvaser = Range(Cells(lignacoller, coldebacoller), Cells(lignacoller, colfinacoller)).Value
Range(Cells(lignedeb_tableau_ou_coller, coldebacoller), Cells(lignedeb_tableau_ou_coller, colfinacoller)).Value = transvaser
End If
Application.ScreenUpdating = True 'r閍ctivation des fonctions d閟activer excel
Application.Calculation = xlCalculationAutomatic 'r閍ctivation des fonctions d閟activer excel
End If
End Sub