Copier coller et effacer

bonjour je souhaiterai faire une macro qui permet en cliquant sur un bouton de copier une ligne ( de A a K ) de la feuille 1 et la coller dans la feuille 2 à la suite du tableau ,et d'effacer la ligne lorsque le mot ok apparait .

j'ai fait un essai mais j'ai un souci d'espace presse papier erreur 1004 .

merci pour votre aide

Bonjour,

tu as écris d12 et non dl2

Mais il faut copier-coller les 12 colonnes en une fois, ça sera plus rapide.

eric

Effectivement erreur de ma part . les yeux fatigue ^^ merci .

quelle serai la méthode pour écrire la ligne complete en une fois ?

.Range("A" & i & "K" & i).Copy ws2.Range("A" & dl2 & "K" & dl2)

Bonjour à tous,

Un essai ...

Sub motclé()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim dl1 As Long
Dim i As Long

Set ws1 = Sheets("EN COURS")                       'ws1 correspond à la feuille
dl1 = ws1.Range("A" & Rows.Count).End(xlUp).Row    'dernière ligne de la feuille
   Set ws2 = Sheets("TERMINEES")

   With ws1
      For i = dl1 To 4 Step -1
         If .Range("J" & i) Like "ok" Then
            .Range("A" & i & ":K" & i).Copy ws2.Range("A" & ws2.Cells(Rows.Count, "A").End(xlUp).Row + 1)
            .Rows(i).EntireRow.Delete
         End If
      Next i
   End With
End Sub

ric

Super ,sa marche impeccable .

merci de votre réactivité et de votre aide .