Transfert de données

Range("A3:F3").Select
Range("F3").Activate
Selection.Copy
[COLOR="Red"]lg = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
Sheets("Feuil2").Range("A" & lg).Select[/COLOR]
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil1").Select
End Sub

Private Sub CommandButton1_Click()
Dim dest As Range 'déclare la variable dest (DESTination)
With Sheets("Feuil2") 'prend en compte l'onglet "Feuil2"
    If .Range("A1").Value = "" Then 'condition : si la cellule A1 est vide
        Set dest = .Range("A1") 'definit la variable dest (A1)
    Else 'sinon
        Set dest = .Range("A65536").End(xlUp).Offset(1, 0) 'définit la variable dest (la première cellule vide rencontrée)
    End If 'fin de la condition
End With 'fin de la prise en compte de l'onglet "Feuil2"
Range("A3:F3").Copy 'copy la plage A3:F3
dest.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 'colle les valeurs
Application.CutCopyMode = False 'vide le presse-papiers (supprime le clignotement de la sélection)
Range("A3").Select 'sélectionne la cellule A3
End Sub