Sub Worksheet_Activate()
T = [Tableau1]
Service = [C2]
ReDim T2(1 To UBound(T), 3)
j = 1
For i = 1 To UBound(T)
If T(i, 1) = Service Then
T2(j, 0) = T(i, 1): T2(j, 1) = T(i, 2): T2(j, 2) = T(i, 3)
j = j + 1
End If
Next i
[C7].Resize(UBound(T2, 1), UBound(T2, 2)) = T2
End Sub