Private Sub Worksheet_Change(ByVal T As Range)
Dim c As Range, d As Range, e As Range
If T.Count <> 1 Then Exit Sub
If T.Address(0, 0) = "C3" Then
Set c = Feuil1.Range("A2")
With Feuil2
.Range("C8:G25").ClearContents
Do While c <> ""
If Feuil1.Cells(c.Row, "F") = T Then
Set d = .Cells.Find(what:=c, LookIn:=xlValues, lookat:=xlWhole).Offset(-1, 1)
Set e = .Cells.Find(what:=c.Offset(, 1), LookIn:=xlValues, lookat:=xlWhole)
.Cells(d.Row, e.Column) = c.Offset(, 3)
.Cells(d.Row + 1, e.Column) = c.Offset(, 2)
.Cells(d.Row + 2, e.Column) = c.Offset(, 4)
End If
Set c = c.Offset(1)
Loop
End With
End If
End Sub