Problème décalage de colonnes

Bonjour à tous et toutes,

J'ai besoin de yeux extérieur car je n'arrive pas a comprendre la source de mon problème...

J'ai crée un requete qui vient filtre dans une colonne particulière mais lorsque je met le numéro de cette colonne je m'aperçois qu'en réalité le filtre est décalé d'une colonne vers le droite

En l'occurrence ici j'ai du mettre la colonne 182 pour qu'il filtre la colonne 183 ... et si je met 183 il vient filtrer sur 184

Voici ma macro :

Sub IntegKsiope()
'
' Tout afficher
'

Sheets("BASE REFCO").Activate
Columns("A:GI").Select
Selection.EntireColumn.Hidden = False
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
ActiveSheet.Outline.ShowLevels RowLevels:=2
Sheets("Integ KSIOPE").Select

'
' IntegKsiope
'

'
ActiveSheet.Range("$A$7:$E$30000").ClearContents
On Error Resume Next
Sheets("BASE REFCO").ShowAllData
On Error GoTo 0
Sheets("BASE REFCO").Select

ActiveSheet.Range("$A$8:$GI$50000").AutoFilter Field:=182, Criteria1:= _
"Chgt"
Range("R8").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Integ KSIOPE").Select
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("BASE REFCO").Select
Range("FE8").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Integ KSIOPE").Select
Range("D6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("BASE REFCO").Select
Range("C8:D8").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Integ KSIOPE").Select
Range("B6:C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Dim W As Integer

W = 7

Do While Cells(W, 2) <> ""

W = W + 1
Loop
W = W - 1

Range("E1").Select
Selection.Copy
Range(Cells(7, 5), Cells(W, 5)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

End Sub

Si vous voyez d'ou peut venir l'erreur je suis preneur !

Merci pour vos retours

Cordialement,