Bonjour, je souhaiterai faire le balayage d'une feuille excel, qui contient plusieurs tableaux avec des informations bien distinct et à chaque fois que je rencontre un nom bien précis ( ex Paul ) que les cellules liées à cette ligne et ce nom soit recopier vers une autre feuille ( ex feuille de Paul ). Je souhaiterais ainsi synthétiser les informations concernant uniquement une personne et pourvoir imprimer uniquement les informations qui le concerne.
 
EX  
 
Tableau 1                                                       Tableau 2
   
jean       camion       vert     200               paul        table      poire      12
mike       voiture      rouge     45                mike       chaise    pomme    4568
jean       vélo          mauve   4582             marc      canapé    prune  45
paul        tram          mauve   458             paul        bureau   figue  45869        
                                                            john        banc      mangue     45
                                                            paul        lampe      orange    5468
 
 
resultat
 
une feuille pour Paul avec les informations suivantes
 
paul        tram          mauve   458
paul        table      poire      12
paul        bureau   figue  45869  
paul        lampe      orange    
 
 
Une feuille pour Mike
 
mike       voiture      rouge     45
mike       chaise    pomme    4568
 
 
etc. etc ...
 
Me concernant, je débute en programmation mais j'ai quelques notions en Vb script.
Votre aide sera d'un grand secours
En vous remerciant par avance
 
 
 
 
       
 
 

Pourquoi ne pas utiliser un tableau croisé dynamique par feuille en filtrant sur le nom de la personne, par contre avec cette solution 2 ligne identiques seront regroupées

Tout d'abord merci damienCYS pour ta réponse. La solution que je recherche ne doit pas avoir de fusion/regroupement. Recopier tel quel

une piste alors  
 
Do While Range(ColonneRefDebut & CompteurLignes).Value <> "" // parcours le tableau jusqu'a valeur vide
  Range(ColonneRefDebut & CompteurLignes +":"ColonneRefFin & CompteurLignes).copy    //copier les colonne que tu veu
 
  select case Range(ColonneRefDebut & CompteurLignes).Value  //selectionne la bonne feuille
     case "Paul"
        sheets("feuille de paul" ).select
     case "Jean"
        sheets("feuille de jean" ).select
  end select
 
  Selection.End(xlDown).Select //se place sur la dernière ligne remplie
  Range(ColonneRefDebut & Selection.Row + 1).Select //passe à la suivante
  ActiveSheet.Paste //collage des valeurs
  sheets("feuille départ" ).select  //retour sur la feuille globale
Loop