XL 2010 filtrer une cellule copiée à valeur variable?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then
For Each Wsh In Worksheets(Array("biere", "vins"))
    With Wsh
        .Range("B2:S" & .Range("B" & Rows.Count).End(xlUp).Row).AutoFilter Field:=2, Criteria1:=Target
    End With
Next Wsh
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then
For Each Wsh In Worksheets(Array("BIERES SPECIALES", "VINS.CHAMPAGNES", "SOFT.ALCOOL.CAFE", "CDE EXCEPTIONNELLE"))
    With Wsh
        .Range("B2:S" & .Range("B" & Rows.Count).End(xlUp).Row).AutoFilter Field:=2, Criteria1:=Target
    End With
Next Wsh
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$2" Then
Application.ScreenUpdating = False
For Each Wsh In Worksheets(Array("BIERES SPECIALES", "VINS.CHAMPAGNES", "SOFT.ALCOOL.CAFE", "CDE EXCEPTIONELLE"))
     With Wsh
     .Unprotect ("Chris401") 'Modifie le MDP
     If Target = "" Then
        .Range("B2:R" & .Range("B" & Rows.Count).End(xlUp).Row).AutoFilter Field:=2
    Else
        .Range("B2:R" & .Range("B" & Rows.Count).End(xlUp).Row).AutoFilter Field:=2, Criteria1:=Target
    End If
    .Protect ("Chris401") 'Modifie le MDP
     End With
Next Wsh
End If
End Sub