Sub Transfert()
Dim F As Worksheet, i As Long, j As Variant
Set F = Sheets("LISTE DES REF")
With ActiveSheet.UsedRange
For i = 8 To .Rows.Count
If .Cells(i, 1) <> "" And Not .Cells(i, 1).HasFormula Then
j = Application.Match(.Cells(i, 1), F.Columns(1), 0)
If IsNumeric(j) Then
F.Cells(j, 20) = .Cells(i, 4)
F.Cells(j, 24) = .Cells(i, 5)
F.Cells(j, 25) = .Cells(i, 6)
End If
End If
Next
End With
End Sub