Oui l'image est la bonne suivant les nombres des case de la colonne P de la feuille "WS2300".
A chaque changement, l'mage suivant se place 2 lignes en dessous de la 1ère.

Bonjour,
Merci de me répondre
Pour l'instant, je n'ai pas pu faire grand chose car, la macro "FouilleShape" S'arrête à "Stop" surligné en jaune.
Cordialement

PS : le code en page "Janvier" ne sert à rien , ilest à supprimer.

Bonjour,
Je n'arrive pas à coller l'image dans la cellule AH de la feuille "Janvier".
Pouvez-vous me dire ce qui coince dans le code "Vent".

'Vent
   Set Source = .Range("O5:AA5"): Colonne = "AF"
   FeJanvier.Range(Colonne & 65535).End(xlUp).Offset(2, 0). _
   Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value

Fichier joint
Merci de votre aide
Cordialement
Guy

Excuse-moi, je suis vraiment miro, j'ai regardé et j'ai rien vu
Merci encore
Bonne fin de journée
Poppy

Re Bonjour,
Excuse-moi de revenir sur la question.
j'essaye de le faire 2 groupes de lignes avec 2 toupies et ça na fonctionne pas, pourquoi ?
La 2ème fait n'importe quoi.
Cordialement
Poppy

Bonjour Mth
C'est tout simplement parfait.
merci encore de ton aide
Cordialement
Poppy

Bonjour,
Je reviens avec une proposition de fonctionnement avec la toupie.

Je souhaiterais Masquer et Afficher des lignes.

Merci de votre aide
Cordialement
Guy

Bonjour Mth,

Voilà Poppy, j'espère que ces explications pourront t'aider en cas de besoin.

Bien sûr que oui, tes explications me vont très bien et me sont très utile, j'en ferais bon usage.
Merci encore de ton aide.
Cordialement
Guy

Bonjour,
Merci, c'est tout à fait ça.
La solution de Mth est bien, mais si j'ai l'intention de modifier l'emplacement, les noms... des données, je ne sais pas coment faire.
Merci de votre aide
Cordialement
Guy

Bonjour,
Effectivement, je souhaitais avec un bouton.
 
J'ai besoin que ça n'aille que dans un sens vers le haut.
Et là je ne vois rien, je ne maitrise pas, je vois pas comment ça fonctionne.
Mais le principe est intéressant, je le garde de coté.
 Cordialement