Sub Compiler()
Const NbCell As Byte = 6 'Nbre de cellules à recopier
Dim Rg_Test As Range, Wsh As Worksheet, Lo As ListObject, Tb
'Cible :
Set Wsh = ThisWorkbook.Worksheets("Synthèse") 'Feuille cible
Set Lo = Wsh.ListObjects(1) 'Tableau structuré cible
'Source : On demande de sélectionner la cellule qui contient le nom du test (ici "Test 2")
On Error Resume Next
Set Rg_Test = Application.InputBox(Title:="Recopie d'un test dans la synthèse", Prompt:="Selectionner la cellule qui contient le nom du Test (Test x)", Type:=8).Resize(, NbCell)
On Error GoTo 0
If Rg_Test Is Nothing Then Exit Sub
'On copie les valeurs et on va sur la cible
Tb = Rg_Test.Value
With Lo
.Range.Offset(.Range.Rows.Count).Resize(1).Value = Tb
Application.Goto .Range.Offset(.Range.Rows.Count - 1).Resize(1, 1)
End With
End Sub