Sub Bouton1_Cliquer()
DébutTablo = 6 'donne la première ligne du tableau
i = DébutTablo
While Cells(i, 4).HasFormula 'on vérifie que la colonne D contient une formule
i = i + 1
Wend
FinTablo = i - 1 'la dernière ligne du tableau
Rows(FinTablo & ":" & FinTablo).Select 'on selectionne puis copie la dernière ligne du tableau
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
FinTablo = FinTablo + 1
Range("B" & FinTablo).Resize(1, 2).ClearContents
Range("E" & FinTablo).ClearContents
Range("H" & FinTablo).ClearContents
Range("K" & FinTablo).ClearContents
Range("N" & FinTablo).ClearContents
Range("Q" & FinTablo).ClearContents
End Sub