Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A7]) Is Nothing Then Exit Sub
Dim num$, source, n&, dest(), i&
Range("A11:G" & Rows.Count).ClearContents 'RAZ
If [A7].Text = "" Then Exit Sub
If Not [A7] Like "*KDT/SCO*" Then [A7] = [A7].Text & " /KDT/SCO/ " & Year(Date)
num = [A7].Text
With Sheets("FSE")
Set source = .Range("A3:M" & .Cells(.Rows.Count, 10).End(xlUp).Row)
End With
n = Application.CountIf(source.Columns(10), num)
If n = 0 Then Exit Sub
source = source 'matrice, plus rapide
ReDim dest(1 To n, 1 To 7)
n = 0
For i = 1 To UBound(source)
If source(i, 10) = num Then
n = n + 1
dest(n, 1) = source(i, 2) 'quid dest(n, 2) ???
dest(n, 3) = source(i, 3)
dest(n, 4) = source(i, 4)
dest(n, 5) = source(i, 9)
dest(n, 6) = source(i, 5)
dest(n, 7) = source(i, 13)
End If
Next
[A11:G11].Resize(n) = dest
End Sub