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