Copier plusieurs valeur d'un tableau sur une autre feuille

Rebonjour, j'ai encore un petit soucis, voilà ce que j'essaye de faire

Si valeur dans tableau ("Feuil2")<>"" alors copier à la suite dans "Feuil1" : Colonne A (NOM) - Colonne B (DATE ("M2")) - Colonne C (SPORT) - Colonne D ( Valeur de la cellule)

macro affectée à la forme ("VALIDER TOUT")

Merci.

Hello,

Voila une ébauche, en revanche pas compris ce qui faut mettre en colonne D ?

Bonne journée.

Bonjour à tous

Un essai à tester. Te convient-il ?

Bye !

Oue la solution de gmb est bien mieux lol.

J'avoue l'avoir un peu baclé

Tout d'abord merci pour vos aides, gmb t'as méthode fonctionne très bien, le seul soucis c'est que si je veux rentrer d'autres données par la suite celles-ci effacent les anciennes données au lieu de se mettre a la suite.

C'est bon, j'ai trouvé, il suffisait de supprimer :

'Set f1 = Sheets("Feuil1")

'f1.Range("A1").CurrentRegion.Offset(1, 0).ClearContents

Merci pour votre aide