Yes pour l'astuce,
Allez hop un bon truc pour commencer à bidouiller en macro
DoubleClick sur Module1 et rajoute dans le code ce qui est en rouge
Bon je te joint le fichier tout de même
Sub restants()
Application.EnableEvents = False
[K5:L19].ClearContents
If [I6] = 0 Then GoTo fin
lig = 5
For k = 5 To 11
If Cells(k, 9) <> "Total général" Then
n = Application.Match(Cells(k, 9), [H5:H19], 0)
If Not IsNumeric(n) Then
Cells(lig, 11) = Cells(k, 9): lig = lig + 1
End If
End If
Next
For k = 5 To 19
If Cells(k, 11) = "" Then Exit For
n = Application.Match(Cells(k, 11).Text, [D
], 0)
If IsNumeric(n) Then Cells(k, 12) = Cells(n, 5)
Next
fin:
Application.EnableEvents = True
End Sub