Bonjour Mokia, bonjour le forum,
J'ai rajouté une ligne à la procédure Clic du CommandButton2 :
Private Sub CommandButton2_Click()
Sheets("Liste").Range("H2").Cells(1).Value = GT.Value ' ICI <===========>
ActiveSheet.Range("$A$6:$W$15846").AutoFilter field:=3, Criteria1:=GT.Value
Unload Me
End Sub