Remplacer copier/coller par collage spécial VBA

Bonjour,

Tout est dans le titre.. J'ai un code VBA dans lequel je n'arrive pas à remplacer le copier coller de base par un copiage spécial valeur sans faire d'erreur....

Du coup help.. ^^

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Long
Dim j As Integer, dlg As Integer

Application.ScreenUpdating = False

Wb_dep = ActiveWorkbook.Name
'Récupération de la position de la cellule active
lgn = ActiveCell.Row
Col = ActiveCell.Column

'Copie des lignes avec conditions C'EST LA DEDANS OU EST LE COPIER COLLER
ligne = Sheets("REX").Range("K" & Sheets("REX").Rows.Count).End(xlUp).Row
If ligne < 4 Then ligne = 4 Else ligne = ligne + 1
For i = 2 To Workbooks(Wb_dep).Sheets(1).Range("A6000").End(xlUp).Row
If Workbooks(Wb_dep).Sheets(1).Range("K" & i) = "ACTIF" Then
Workbooks(Wb_dep).Sheets(1).Range("A" & i & ":U" & i).Copy Workbooks(Wb_dep).Sheets(2).Range("A" & ligne)
ligne = ligne + 1
End If
Next i

' Repositionnement sur la cellule
Sheets("DT-OT").Select
Sheets("DT-OT").Cells(lgn, Col).Select

Sheets("REX").Range("A5:U" & Sheets("REX").Range("B" & Sheets("REX").Rows.Count).End(xlUp).Row).RemoveDuplicates Columns:=(2), Header:=xlNo

End Sub

Bonjour,

Workbooks(Wb_dep).Sheets(1).Range("A" & i & ":U" & i).Copy Workbooks(Wb_dep).Sheets(2).Range("A" & ligne)

A remplacer par :

Workbooks(Wb_dep).Sheets(1).Range("A" & i & ":U" & i).Copy
Workbooks(Wb_dep).Sheets(2).Range("A" & ligne).PasteSpecial xlPasteValues

Cordialement.

Merci beaucoup c'est parfait !! =)