Transmettre par code VBA

Bonjour forum .. Bonjour tout le monde

Comment faire svp pour envoyer les donnees dans Feuil1 vers Feuil6 par code VBA

J'ai essaye avec le code dans le module de ce fichier mais j'ai pas reussi car les nouvelles donnees que je rentre ne commencent pas au derniere ligne

Je ne veux pas svp effacer les donnees precedentes quand je vais transmettre des nouvelles donnees

Merci d'avance pour vos suggestions

MARTI

Bonjour

essaie avec ce code

Sub Export()

With Sheets("Feuil1")
     .Range("C11:L" & .Range("C" & .Rows.Count).End(xlUp).Row).Copy Sheets("Feuil6").Range("H4")
End With
End Sub

Si ok, clique sur le v vert à coté du bouton EDITER pour cloturer le fil lors de ta réponse

Crdlt

Bonjour DAN

merci pour votre code et votre aide

je ne sais pas peut etre j'ai mal exprimé mon probleme

je remplis la plage en "Feuil1" je clique le bouton .. ca sa passa tres bien et les donnees s'affichent en "Feuil6".

MAIS si j'efface les donnees dans Feuil1 et je remplis Feuil1 avec d'autres donnees et je clique le boutoncommande ici les anciennes donnees dans Feuil6 s'effacent .. c'est ca mon problemen

Merci pour l'aide

MARTI

re

essaie ceci

Sub Export()
Dim dlg As Integer
dlg = Sheets("Feuil6").Range("H" & Sheets("Feuil6").Rows.Count).End(xlUp).Row
With Sheets("Feuil1")
    .Range("C11:L" & .Range("C" & .Rows.Count).End(xlUp).Row).Copy Sheets("Feuil6").Range("H" & dlg + 1)
    .Range("C11:L" & .Range("C" & .Rows.Count).End(xlUp).Row).ClearContents
End With
End Sub

Crdlt

Bonsoir DAN

Merci beaucoup pour l'aide

C'est effectivement ce que je veux

Merci 1000 fois pour votre impeccable code

MARTI

Bonsoir DAN

En réalité c'est bien resolu

Il me reste un petit probleme.. j'ai essayé de le resoudre seul j'ai effacé l'expression ( Clear Contents ) mais j'ai pas reussi ..

svp comment faire pour ne pas effacer les donnees dans Feuil1 apres la tranmession vers Feuil6

merci d'avance pour l'aide

MARTI

re

Il faut supprimer cette ligne du code

.Range("C11:L" & .Range("C" & .Rows.Count).End(xlUp).Row).ClearContents

Crdlt