Pour les deux tableaux du haut de la feuille "RECUP", il faut que je me base sur la même chose je suppose ?
Private Sub Worksheet_Activate()
'End(xlUp) ne donne pas le bon résultat si le tableau est filtré
Sheets("DIRECTION").Range("C9:R" & Application.Match("zzz", Sheets("DIRECTION").[C:C])).Name = "T"
End Sub
=RECHERCHE(9^9;DIRECTION!D:D)