Comment récuper une valeur après un filtre

Private Sub CommandButton2_Click()

Dim Acier As String, Diametre1 As String, Diametre2 As String, Diametre3 As String
Dim Assemblage As String, Epaisseur As String, Position As String
Dim derLig As Integer
Dim i As Integer
Dim tmpItem As String

Acier = ComboBox1.Value
Assemblage = ComboBox2.Value
Epaisseur = ComboBox3.Value
Position = ComboBox4.Value
Diametre1 = ComboBox5.Value
Diametre2 = ComboBox6.Value
Diametre3 = ComboBox7.Value
derLig = Worksheets("Analyse").Range("A" & Rows.Count).End(xlUp).Row

Worksheets("Analyse").Activate
For i = 2 To derLig
    tmpItem = Range("B" & i) & Range("C" & i) & Range("D" & i) & Range("E" & i) & Range("F" & i)
    If tmpItem = Acier & Diametre1 & Assemblage & Epaisseur & Position Then Range("H1").Value = Range("G" & i).Value
    If tmpItem = Acier & Diametre2 & Assemblage & Epaisseur & Position Then Range("I1").Value = Range("G" & i).Value
    If tmpItem = Acier & Diametre3 & Assemblage & Epaisseur & Position Then Range("J1").Value = Range("G" & i).Value
Next i

End Sub 

For Each Cell In Range("G2:G16641")

Sub test()
    Dim Analyse As String
    For Each Cell In Range("G2:G16641").SpecialCells(xlCellTypeVisible)
        If Cell.Value <> "" Then
            Analyse = Cell.Value
            Worksheets(Analyse).Range("H1") = "yes"
        End If
    Next
End Sub

Dim Analyse As String

 For Each Cell In Range("G2:G16641").SpecialCells(xlCellTypeVisible)

If Cell.Value <> "" Then

 Analyse = Cell.Value

 Worksheets(Analyse).Range("H1") = "yes"

End If

Next