Sub Distribuisci() Dim rng As Range Dim rng2 As Range Dim cel As Range Dim cel2 As Range Set rng = Foglio1.Range("B2:K8") Set rng2 = Uni0n(Foglio2.Range("A1:a30"), Range("j1:j30")) For Each cel In rng For Each cel2 In rng2 If cel.Value = cel2.Value Then Foglio2.Cells(cel2.Row, cel2.Offset(0, 1).Column).Value = Foglio1.Cells(cel.Row, 1).Value End If Next cel2 Next cel End Sub