bonjour,
une solution via une macro
Sub aargh()
Dim i As Long, j As Long
With Sheets("resultat")
i = 6
While .Cells(i, 1) <> ""
If .Cells(i, 5) = "" Then
j = 6
Do While .Cells(j, 1) <> ""
If .Cells(j, 1) = .Cells(i, 1) And .Cells(j, 5) <> "" Then
.Cells(i, 5) = .Cells(j, 5)
Exit Do
End If
j = j + 1
Loop
End If
i = i + 1
Wend
End With
End Sub