Tableaux déduits d'un tableau initial

Bonjour tout le monde,
Quelqu'un pourrait-il me donner la ou les macros qui permet(tent) une fois le tableau 1 constitué à la main d'obtenir en automatique les tableaux 2 et 3 (cf fichier en PJ).
A noter que l'exemple donné est simple mais que dans la réalité le tableau 1 comporte plus de 600 lignes.....
Merci beaucoup

NB: dans le message précédent, on ne pevait ouvrir la PJ

Bonsoir Patou, bonsoir le forum,

Il est tard et je suis trop crevé pour continuer sur ton projet. Voici une macro pour le tableau 2 sur une autre feuille. J'ai considéré que le tableau 1 commençait en A1 et qu'il n'y avait rien d'autre au départ.

Public Sub tab2()
'copie la feuil1, la renomme "Tableau 2" et supprime les colonnes inutiles
Sheets("Feuil1").Select
Sheets("Feuil1").Copy Before:=Sheets(2)
ActiveSheet.Name = "Tableau 2"
For x = 4 To 6
Columns(x).Delete
Next
'détermine la dernière ligne du tableau
Dim lin As Integer
lin = Range("A65536").End(xlUp).Row
Cells(lin + 1, 1).Value = "fin" 'évite la boucle sans fin (voir condition)
For y = 2 To lin
If Cells(y, 1).Value = "fin" Then 'condition
Cells(y, 1).EntireRow.Delete 'de la boucle
Exit Sub 'sans
End If 'fin
'supprime les lignes vides
If Cells(y, 1).Value = "" Then
Cells(y, 1).EntireRow.Delete
y = y - 1
End If
Next
End Sub

À plus,

Robert

Re bonsoir Patou, Bonsoir le forum

En pièce jointe les deux macros qui déduisent deux tableaux à partir de l'original. En fin de macro "tab2 ", la macro "tab3" est lancée automatiquement mais tu peux désactiver cette ligne et lancer les deux macros "tab2" et "tab3" séparément.

À plus,

Robert