Sub Cherche()
Dim tablo, Produit, i As Long, n As Long, m As Long, g, d
Worksheets("Feuil1").Activate
tablo = Range("A1:BT" & Range("A" & Rows.Count).End(xlUp).Row)
Produit = Worksheets("Base").Range("G:G")
For i = 1 To UBound(Produit, 1)
g = Val(Left(Produit(i, 1), 5)): d = Val(Right(Produit(i, 1), 3))
For n = 2 To UBound(tablo, 1)
If tablo(n, 1) = g Then
For m = 55 To UBound(tablo, 2)
If tablo(1, m) = d Then Worksheets("Feuil1").Cells(n, m) = d 'tablo(n, m)
Next
End If
Next
Next i
End Sub