Assocition macros (probleme)

Bonjour,

Je suis ennuyé et bloqué sur cette macro (Le FONCTIONNEMENT EST CORRECT QUAND ELLES NE SONT PAS ASSOCIES)

Quand je les réunis Beug 😕 1004 la métode Select de la classe Range a échoué.

Range("1:3,5:5").Delete
For i = [J65536].End(xlUp).Row To 2 Step -1
If Cells(i, 10) = 1 Or Cells(i, 10) = 2 Or Cells(i, 10) = 3 Then
Rows(i).Delete
End If
Next i

Sheets("Feuil2").Select
Columns("K:K").Insert
Columns("W:W").Select
Selection.Copy
Columns("K:K").Select
ActiveSheet.Paste

End Sub
Par avance merci
A+