Sub Conso()
Dim Ws As Worksheet, j As Byte, Derlign As Long, Nom As String
For Each Ws In ActiveWorkbook.Sheets
If Ws.Name <> "SYNTHESE" Then
With Sheets("SYNTHESE")
Derlign = .Range("A65000").End(xlUp).Row + 1
.Range("A" & Derlign) = Ws.Range("A1")
For j = 2 To .Range("B2").End(xlToRight).Column
Nom = .Cells(2, j)
[COLOR="Blue"]x = Application.Index(Ws.Range("E3:E1000"), _[/COLOR]
[COLOR="Blue"]Application.Match(Nom, Ws.Range("A3:A1000"), False))[/COLOR]
[COLOR="Blue"]If Not IsError(x) Then .Cells(Derlign, j) = x[/COLOR]
Next
End With
End If
Next
End Sub