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