XL 2019 problème de code vba

Dadi147 à dit:

Bonjour, pouvez-vous modifier le code pour être plus rapide?

VB:

Sub Filter_()
Dim Criteria_MH(100) As String
 Dim i As Integer
 Application.ScreenUpdating = False

Sheets("sh").Activate Range("A2:A12").Select

 For i = 0 To Selection.Count

Criteria_MH(i) = Selection(i)

Next

Sheets("sh2").Range("A3:A100").AutoFilter Field:=1, Criteria1:=Criteria_MH, Operator:=xlFilterValues

Sheets("sh2").Activate

 Application.ScreenUpdating = True

End Sub

Cliquez pour agrandir...

Dadi147 à dit:

bonjour c'est quoi le problème ?

Cliquez pour agrandir...