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