Sub Copie()
On Error Resume Next
Application.ScreenUpdating = False
Dim rs As Range, rd As Range
Dim t() As Variant, i As Integer
t = Array(11, 12, 13, 14, 16, 17, 18, 19, 20, 22, 23, 24, 26, 28, 29, 31, 32)
With Sheets("Liste")
For i = LBound(t) To UBound(t)
Set rd = Sheets("Suivi").Range("A65536").End(xlUp).Offset(1, 0)
Set rs = .Range("I" & t(i)).Resize(1, 7)
If .Range("I" & t(i)).Value >= "1" Then
rs.Copy
rd.PasteSpecial xlValues
rd.PasteSpecial xlFormats
End If
Next i
End With
End Sub