Sub Examine()
[15:15].ClearContents: [18:18].ClearContents:
Chercher 13
Chercher 16
End Sub
Sub Chercher(L)
Dim C%, C2%, Texte$
For C = 12 To 40
N = Cells(L, C)
For C2 = 12 To 40
If Cells(5, C2) = N Then Texte = Texte & Cells(4, C2) & " "
Next
For C2 = 12 To 40
If Cells(8, C2) = N Then Texte = Texte & Cells(7, C2) & " "
End If
Next
Cells(L + 2, C) = Texte: Texte = ""
Next C
End Sub