Pb de passage à l'onglet suivant

Bonsoir à toutes et à tous,

Voici mon code et j'ai encore un petit soucis;malgr&s la boucle, il ne va pas voir l'onglet suivant. Pourtant il est bien renseigné en
Range('DD' & 1009 + cx).
For cx = 4 To 15 ' Boucle sur tous les onglets
If Range('DD' & 1009 + cx).Value = 1 Then ' Sélection de la Feuille si = 1
ct = ct + 1 ' Comptage des feuilles
Range(Sheets(cx).Name & '!A1:AQ43').Copy 'plage à copier (pour le format)
Sheets('MaFeuille').Select
With ActiveSheet.Range('A' & (43 * (ct - 1)) + 1).Select 'la première cellule de destination
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
For l = 1 To 43
If l = 1 Then
Range('A' & (43 * (ct - 1)) + l).Value = Sheets(cx).Range('A1').Value
Range('M' & (43 * (ct - 1)) + l).Value = Sheets(cx).Range('M1').Value
ElseIf l = 4 Then
Range('B' & (43 * (ct - 1)) + l).Value = Sheets(cx).Range('B4').Value
Range('G' & (43 * (ct - 1)) + l).Value = Sheets(cx).Range('G4').Value
Range('L' & (43 * (ct - 1)) + l).Value = Sheets(cx).Range('L4').Value
Range('Q' & (43 * (ct - 1)) + l).Value = Sheets(cx).Range('Q4').Value
Range('V' & (43 * (ct - 1)) + l).Value = Sheets(cx).Range('V4').Value
Sheets('MaFeuille').Range('AA' & (43 * (ct - 1)) + l).Value = Sheets(cx).Range('AA4').Value
Range('AF' & (43 * (ct - 1)) + l).Value = Sheets(cx).Range('AF4').Value
ElseIf l = 7 Or l = 13 Or l = 19 Or l = 25 Or l = 31 Or l = 37 Then
For c = 4 To 34 Step 5 ' Boucle pour Copier uniquement les valeures de la cellule
Cells((43 * (ct - 1)) + l, c).Value = Sheets(cx).Cells(l, c).Value
Next c ' Fin de la boucle pour Copier uniquement les valeures de la cellule
End If ' fin de la ligne
Next l ' Fin de la boucle sur les lignes de la plage à copier
End With
End If ' Fin de copie de la plage pour cette feuille
Next cx ' Fin de la boucle sur les onglets
Pourriez vous encore me donner un petit coup de main?
Merci.
Pascale