C'est une macro.
Faire Alt+F11 pour voir le code. Ici dans le module Feuil1, à copier-coller dans le module de la feuille concernée.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
If Target.Row > 6 Then
Set c = Range("C7").Resize(Target.Row - 6).Find("s", searchdirection:=xlPrevious)
If c Is Nothing Then [D6] = "" Else [D6] = c.Offset(, 1)
Set c = Range("C7").Resize(Target.Row - 6).Find("t", searchdirection:=xlPrevious)
If c Is Nothing Then [D5] = "" Else [D5] = c.Offset(, 1)
End If
End Sub
La macro est appelée à chaque sélection de cellule.
eric