Coller valeur

Bonjour,

J'ai ce code qui met en historique des donné d'une feuille à l'autre mais je n'arrive pas a faire copier et coller les valeur seulement.

Actuellement ça copie aussi les formule et comme seulement une partie est mise en historique ça me donne des valeur faussé dans mon historique.

Quelqu'un peux m'aider?

Sub historique()
x = 0
With Sheets("BL")
ligne = .Columns(3).Find("*", , , , xlByColumns, xlPrevious).Row
For n = ligne To 11 Step -1
If Not IsEmpty(.Range("A" & n)) Then
x = x + 1
.Range("A" & n & ":L" & n).Select
Selection.Copy
Sheets("Histo Cde").Select
ligne2 = Sheets("Histo Cde").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1
Sheets("Histo Cde").Range("A" & ligne2).Select
ActiveSheet.Paste
.Select
.Range("C" & n & ":E" & n).Select
Selection.ClearContents
End If
Next

End With

End Sub

Merci