Problème copier/coller valeur [résolu]

Bonjour à tous,

Je débute sur VBA et j'ai un problème avec macro que vous trouverez ci-dessous. Je souhaiterais juste copier/coller valeur mais je n'arrive pas trouve le bon code.

Dim Lig&, DerL&
DerL = Worksheets("Historique_contrôle").Range("A" & Rows.Count).End(3).Row
For Lig = 1 To 100
If Worksheets("Articles").Cells(Lig, 3) = "OK" Then
Worksheets("Articles").Rows(Lig).Copy Worksheets("Historique_contrôle").Range("A" & DerL + 1)
DerL = DerL + 1
End If
Next

Merci d'avance pour votre aide