Private Sub Worksheet_Change(ByVal Target As Range)
'version du 25/10/2014
Dim ws As Worksheet, dl&, vArr, i As Byte
If Target.Address = "$I$2" Then
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.Range("B5:W500").ClearContents
For Each ws In Worksheets
If Len(ws.Name) = 2 Then
dl = ws.Cells(Rows.Count, "I").End(3).Row
vArr = ws.Range("I11:I" & dl).Value
For i = LBound(vArr) To UBound(vArr)
With Sheets("Synthese")
If vArr(i, 1) = .[I2] Then
.Cells(.Cells(Rows.Count, "I").End(3)(2).Row, "B").Resize(, 22).Value = _
ws.Cells(10 + i, "B").Resize(, 22).Value
End If
End With
Next
Erase vArr
End If
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
End Sub