Bonjour,
Peut être avec un TDC mais je ne connais pas assez bien donc, une ébauche de code VBA qui reproduit ton tableau résultat mais je soupçonne que le tableau originel est malgré tout différent de celui présenté donc, en attendant plus de précisions, voici le bout de code. Supprimes ton tableau de résultat et exécutes la Sub :
Sub Test()
Dim Plage As Range
Dim Cel As Range
Dim I As Integer
Set Plage = Range("D3:G6")
I = 2
For Each Cel In Plage
If InStr(Cel.Value, "*") <> 0 Then
I = I + 1
Cells(I, 13).Value = Plage(Cel.Row - 2, 1).Offset(, -3).Value
Cells(I, 14).Value = Plage(Cel.Row - 2, 1).Offset(, -2).Value
Cells(I, 15).Value = Plage(Cel.Row - 2, 1).Offset(, -1).Value
Cells(I, 16).Value = Replace(Cel.Value, "*", "")
Cells(I, 17).Value = Plage(1, Cel.Column - 3).Offset(-1).Value
End If
Next Cel
End Sub