XL 2016 vba

Public lig As Long, col As Long, c As Range, cel As Range

Sub Distribue()
With Feuil1
    lig = .Cells(Rows.Count, "B").End(xlUp).Row + 1

    For Each c In .Range("g4:g31")
        Set cel = .Range("h3:i3").Find(c, , , , xlByColumns, xlPrevious)
        If Not cel Is Nothing Then
        .Cells(lig, cel.Offset(0, -6).Column) = cel.Offset(-1, 0)
        End If
    Next c
    lig = .Cells(Rows.Count, "H").End(xlUp).Row + 1

    For Each c In .Range("g4:g31")
        Set cel = .Range("j3:k3").Find(c, , , , xlByColumns, xlPrevious)
        If Not cel Is Nothing Then
        .Cells(lig, cel.Column) = cel.Offset(-1, 0)
        End If
    Next c
End With
End Sub