Bonjour
Macro à placer dans le module feuil1 de vba :
Public Sub paul()
Dim c As Range
Dim i As Integer
For Each c In Range("a6:a" & Range("a50000").End(xlUp).Row)
For i = 1 To 60
If Sheets(c.Value).Cells(1, i).Value = Range("c2").Value Then
colonne = Left$(Sheets(c.Value).Cells(1, i).Address(0, 0), (Sheets(c.Value).Cells(1, i).Column < 27) + 2)
End If
Next i
On Error Resume Next
With Sheets(c.Value)
.Range("a" & Sheets(c.Value).Range("a50000").End(xlUp).Row + 1) = c.Offset(0, 1).Value
.Range(colonne & Sheets(c.Value).Range("a50000").End(xlUp).Row) = c.Offset(0, 2).Value
End With
Next c
End Sub
Salut
Hervé