Bonjour à tous,
Oh les gars, venez vite, y'a jmd qui demande une macro !!!!
Dans un module standard :
Sub compil()
Dim sh As Worksheet, pl As Range, titreOk As Boolean
On Error Resume Next
If IsError(Sheets("Compilation").Index) Then
Sheets.Add before:=Worksheets(1)
ActiveSheet.Name = "Compilation"
End If
On Error GoTo 0
With Sheets("Compilation")
.Cells.Clear
For Each sh In Worksheets
If sh.Name <> "Compilation" And sh.[A1] = "N° Sinistre" Then
If Not titreOk Then sh.Rows(1).Copy .Rows(1): titreOk = True
Set pl = sh.[A1].CurrentRegion.Offset(1).Resize(sh.Cells(Rows.Count, 1).End(xlUp).Row - 1)
pl.Copy .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(pl.Rows.Count, pl.Columns.Count)
End If
Next sh
End With
End Sub
eric
Fichier retiré (données personnelles)