Modifier un code copier coller mise en forme, vers valeurs uniquement

Bonjour à tous,

J'ai récupéré un code qui permet de copier coller des données d'une feuille, vers une autre feuille du même classeur.

Code qui empêche de copier coller une deuxième fois, si les valeurs de la feuille source n'ont pas bougées (ce que je trouve génial).

Le problème c'est que c'est une copie avec mise en forme, ce que je veux absolument éviter, je souhaite seulement coller les valeurs.

De plus j'aimerais copier les données des colonne A, B, C et K ligne 2 (feuille source) pour les coller en A, B, C, D (feuille de destination).

Bien entendu avec le même principe, c'est à dire interdire le copier coller si rien a changé.

Voici le code à modifier.

Merci d'avance pour vos propositions.

Private Sub CommandButton1_Click()
 Dim Derlg&
    With Sheets("A")
        If Me.CommandButton1.Caption = "Copier" Then
            Derlg = .Cells(.Rows.Count, "A").End(xlUp).Row
            .Range("A2:K" & Derlg).Copy Sheets("B").Range("A" & Sheets("B").Cells(Sheets("").Rows.Count, "A").End(xlUp).Row + 1)
            Me.CommandButton1.Caption = "Déjà Copié"
        End If
    End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Me.CommandButton1.Caption = "Copier"
End Sub

Bonsoir Youss,

Ne pas passer par une copie directe. Mais indirecte par une sélection.

.Range("A2:K" & Derlg).Select
    Selection.Copy
    Sheets("B").Range("A" & Sheets("B").Cells(Sheets("").Rows.Count, "A").End(xlUp).Row + 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False 'Pour arrêter l'opération de copie

'Puis suite du code

Seules les valeurs, par la propriété xlPasteValues seront copiées.

Bonjour X Cellus,

J'ai adapté votre code au mien et c'est nickel.

Merci beaucoup de la proposition.

A+