attribution de numero comptable a un montant

Sub Ventile()
Dim lig As Byte, w As Worksheet, cel As Range, col As Variant
Application.ScreenUpdating = False
Feuil2.[B3:H17].ClearContents 'Feuil2 => CodeName
lig = 3 '1ère ligne en Feuil2
For Each w In Worksheets
  If w.CodeName <> "Feuil2" Then
    If Application.Count(w.[B3:B65000]) Then
      For Each cel In w.[B3:B65000].SpecialCells(xlCellTypeConstants, 1)
        col = Application.Match(cel.Offset(, 1), Feuil2.[B2:H2], 0)
        If IsNumeric(col) Then Feuil2.Cells(lig, col + 1) = cel
      Next
      lig = lig + 1
    End If
  End If
Next
End Sub

Sub Ventile()
Dim lig As Byte, w As Worksheet, cel As Range, col As Variant
Application.ScreenUpdating = False
Feuil2.[A3:H17].ClearContents 'Feuil2 => CodeName
lig = 3 '1ère ligne en Feuil2
For Each w In Worksheets
  If w.CodeName <> "Feuil2" Then
    If Application.Count(w.[B3:B65000]) Then
      For Each cel In w.[B3:B65000].SpecialCells(xlCellTypeConstants, 1)
        col = Application.Match(cel.Offset(, 1), Feuil2.[B2:H2], 0)
        If IsNumeric(col) Then Feuil2.Cells(lig, col + 1) = cel
      Next
    End If
    Feuil2.Cells(lig, 1) = w.Name 'nom de la feuille en colonne A
    lig = lig + 1
  End If
Next
End Sub