Extraire et trier des données

Bonjour,

J'ai un besoin d'aide pour faire une extraction de donnée d'une feuille

pour remettre en ordre dans une autre feuille.

Je vous joint un fichier exemple pour comprendre ma demande.

n'hésiter pas à demander si vous avez besoins de plus d'infos.

Merci de votre aide.

Bonjour

A tester

Ps: Ton profil indique 2003 et tu envoies des fichiers > 2003

merci

j'ai changé depuis le moment ou je me suis inscrit, j'ai mis a jour mon profil en 2007 FR

merci le fichier a l'air de faire ce que je voulais, je regarderais ca plus ds le detail demain,

merci bcp de l'aide

ps: c'est fou tout ce qu'on peut faire avec excel!!!!! j'en apprends ts les jours en ce moment grace a vous!

-- 05 Juil 2011, 08:29 --

Encore merci

maintenant faut que j'essaye d'adapter ca pour mon fichier si je veut rajouter une colonne date interv de plus c'est quoi que je dois modifier?

de meme si je veut rajouter 4 ou 5 colonnes (que je remplirais a la main) entre n°DEVIS ET N°FICHE

Merci

-- 05 Juil 2011, 08:59 --

Je penses avoir compris comment decaler pour rajouter des colonnes

If Not Cel Is Nothing Then
          Cl = 2 + (Year(.Cells(J, "A")) - 2011)* 5
          While Cells(Cel.Row, Cl) <> ""
            Cl = Cl + 1
          Wend
          If Cl > 4 + (Year(.Cells(J, "A")) - 2011) * 5
            MsgBox "Trop de date"
          Else
            Cells(Cel.Row, Cl) = .Cells(J, "A")
          End If

il suffit d'augmenter le chiffre de la multiplication (ici = 5)

-- 05 Juil 2011, 09:03 --

et pour rajouter une colonne date il faut simplement augmenter le C1>4