Sub SynthKm()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
If ws.Name Like "*km*" And ws.Name <> "Onglet unique" Then
tabdata = ws.Range("AI12:AU36").Value
fin = Sheets("Onglet unique").Range("B" & Rows.Count).End(xlUp).Row
Sheets("Onglet unique").Range("B" & fin + 1).Resize(UBound(tabdata, 1), UBound(tabdata, 2)) = tabdata
End If
Next ws
End Sub