Transfert de donnés entre 2 onglets sous conditions

Bonjour tout le monde,

Après une semaine de recherche et de galère, j'ai pas encore trouvé une solution à mon problème.

sachant que je suis novice en VBA et je travail qu'avec l’enregistreur de macro , et j'ai essayé de dévemopé un macro mais ca va pas du tout

Sub filtre()

Dim cel As Range

Dim myRange As Range

Set myRange = ActiveSheet("Feuil1").Range("A2:A53")

For Each cel In Worksheets("Feuil1")

Sheets("saisie").Select

If Worksheets("saisie").Range("C1").Value Then myRange

Range("C2:C26").Select

Selection.Copy

Sheets("Feuil1").Select

Range("B3").Select

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=True

End If

End Sub

merci à ceux qui vont pendre le temps pour m'aider à trouver une solution

Ci joint le fichier qui explique tout

Cordialement

Bonjour Souf, Excelleurs(ses),

Que souhaites tu faire?

un couper coller avec une condition?

que souhaites tu copier?

quel est ta condition?

comment souhaites tu procéder au copier coller?

A te lire,

Medas

Voici une solution.

Bonsoir medas ,

Merci beaucoup pour t'as réponse rapide. c'est exactement ce que je voulais !

1000000000 merci tu es le meilleur !

bonne soirée

Bonjour Souf,

Mais de rien. Si je peux aider je le fais.

Bonne continuation.