Coller des valeurs

 'Copier la date
        Feuil1.Activate
        Range("K3").Copy
        'Coller la date
        Feuil2.Activate
        Feuil2.Select
        Range("A4").Select
        ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Sub test()
        Feuil1.Range("K3").Copy Feuil2.Range("A4")
        
        'ou
        
        Worksheets("feuil1").Range("K3").Copy Worksheets("feuil2").Range("A4")
        
End Sub

Discussions similaires