Sub consolide_onglets()
Dim s As Long, a As Long
With Sheets("Résultats")
For s = 1 To Sheets.Count
If Sheets(s).Name <> "Résultats" Then
a = Sheets(s).Range("C3").CurrentRegion.Offset(1, 0).Rows.Count - 1
Sheets(s).Range("C3").CurrentRegion.Offset(1, 0).Copy .[A65000].End(xlUp).Offset(1, 0)
.[D65000].End(xlUp).Offset(1, 0).Resize(a) = Left(Sheets(s).Name, 1) & "°" & Right(Sheets(s).Name, 1)
End If
Next s
End With
End Sub