Option Explicit
Sub Recopie()
Dim LigSource As Long, LigCherch As Long, LastLig As Long
Dim DerLigSource As Long, DerLigCherch As Long
Dim Wk As Worksheet
Set Wk = Sheets("Fichier stock")
Application.ScreenUpdating = False
'-------------------------------Filtre de ma feuille "fichier stock" en focntion du code gestion---------------------
With Wk
.AutoFilterMode = False
LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
With Wk.Range("A1:CZ" & LastLig)
.AutoFilter Field:=4, Criteria1:=Array( _
"190", "191", "192", "193", "194", "195", "196", "197", "198", "199", "280", "289"), Operator _
:=xlFilterValues
End With
End With
'--------------------------------recherche de valeur identique entre les deux colonnes "B" et transfert des données----
DerLigSource = Wk.Range("B" & Rows.Count).End(xlUp).Row
With Sheets("J+5")
DerLigCherch = .Range("B" & Rows.Count).End(xlUp).Row
For LigCherch = 5 To DerLigCherch
Debug.Print .Cells(LigCherch, "J"),
For LigSource = 2 To DerLigSource
If .Cells(LigCherch, "B") = Wk.Cells(LigSource, "B") Then
Wk.Cells(LigCherch, "B").Offset(0, 22) = Wk.Cells(LigSource, "B").Offset(0, 32) 'ligne AA vers x
Wk.Cells(LigCherch, "B").Offset(0, 23) = Wk.Cells(LigSource, "B").Offset(0, 35) 'ligne AK vers y
Wk.Cells(LigCherch, "B").Offset(0, 24) = Wk.Cells(LigSource, "B").Offset(0, 38) 'ligne AN vers Z
Wk.Cells(LigCherch, "B").Offset(0, 25) = Wk.Cells(LigSource, "B").Offset(0, 41) 'ligne AQ vers AA
Wk.Cells(LigCherch, "B").Offset(0, 26) = Wk.Cells(LigSource, "B").Offset(0, 44) 'ligne AT vers AB
Wk.Cells(LigCherch, "B").Offset(0, 27) = Wk.Cells(LigSource, "B").Offset(0, 47) 'ligne AW vers AC
Wk.Cells(LigCherch, "B").Offset(0, 28) = Wk.Cells(LigSource, "B").Offset(0, 50) 'ligne AZ vers AD
Wk.Cells(LigCherch, "B").Offset(0, 29) = Wk.Cells(LigSource, "B").Offset(0, 53) 'ligne BC vers AE
Wk.Cells(LigCherch, "B").Offset(0, 30) = Wk.Cells(LigSource, "B").Offset(0, 56) 'ligne BF vers AF
Wk.Cells(LigCherch, "B").Offset(0, 31) = Wk.Cells(LigSource, "B").Offset(0, 59) 'ligne BI vers AG
Wk.Cells(LigCherch, "B").Offset(0, 32) = Wk.Cells(LigSource, "B").Offset(0, 62) 'ligne BL vers AH
Wk.Cells(LigCherch, "B").Offset(0, 33) = Wk.Cells(LigSource, "B").Offset(0, 65) 'ligne BO vers AI
Wk.Cells(LigCherch, "B").Offset(0, 34) = Wk.Cells(LigSource, "B").Offset(0, 6) 'ligne H vers AJ
End If
Next LigSource
Next LigCherch
End With
End Sub