Coller sur une ligne avec conditions

Bonjour à tous

Bon, je n'arrive pas à coller correctement... donc je dois encore mal m'y prendre

Voici ce que je souhaite :

Quand sur ma ligne 3 il y a écrit "Cde", il faut COPIER le nom qui est sur la ligne 2 et le COLLER sur la ligne 5 ... sans colonnes vides sur la ligne 5...

Dans l'exemple joint ce sont les cellules en jaune ligne 3 qui doivent se retrouver en ligne 5 côte à côte...

Si vous avez une petite idée de comment faire, merci d'avance

Bonjour

Modifie la partie correspondante

  'RECHERCHER LES PLANTES A RECOMMANDER
  For j = 2 To 21
    If Cells(3, j) = "Cde" Then
      Cells(2, j).Copy Cells(PD.Row, Columns.Count).End(xlToLeft).Offset(, 1)
    End If
  Next j

Merci beaucoup Banzaï64...

Tu m'enlève une belle épine du pied... vu que j'ai plus de 100 plantes... le copier coller manuel devenait pénible...

Je te souhaite de belles fêtes de fin d'année