Pour finir encore une simplification du code :
Sub Etiquettes(souche$)
Dim s1 As Shape, s2 As Shape, T As Range, i&, j&
Set s1 = Shapes("ZT_1"): Set s2 = Shapes("ZT_2")
Set T = Sheets(souche).ListObjects(1).Range
For i = 2 To T.Rows.Count Step 2
    If T(i, 7) = "couple" Then
        MAJ s1, T...