recap onglet

Sub synthese()
With Sheets("Synthèse")
  .Range("A2:i" & .Rows.Count).ClearContents
  For Each sh In Sheets
    If sh.Name <> "Synthèse" And sh.Name <> "Matrice" Then
      For lg = 14 To sh.Cells(sh.Rows.Count, "q").End(xlUp).Row
        If sh.Cells(lg, "q") > 0 Then
          sh.Range(sh.Cells(lg, "j"), sh.Cells(lg, "r")).Copy
          .Range("a" & .Cells(.Rows.Count, "A").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        End If
      Next
    End If
  Next
End With
End Sub