Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim i%
If Not ActiveSheet.Name = "Devis" Then Exit Sub
[COLOR=yellowgreen]'le 65536 correspond a la derniere ligne d'un fichier excel (jusqu'a la version 2007)
[/COLOR]Range("A2:E65536").ClearContents
For i = 1 To Sheets.Count
If Not Sheets(i).Name = "Synthese" Then
Cells(Range("A65536").End(xlUp).Row + 1, 1).Value = Sheets(i).Range("B6").Value
Cells(Range("B65536").End(xlUp).Row + 1, 1).Value = Sheets(i).Range("B11").Value
[COLOR=yellowgreen] '...[/COLOR]
End If
Next i
End Sub