Demande de correction de macro

[chich]

Bonjour
je n'arrive pas a optimiser la macro (ice)dans le module 1
le but et de transposer dans la plage (M3:T10) les deux plages (W3:AD10,C3:J10)
en récupérant uniquement les cellules non vide et d'imbriquer la macro ice dans la macro qui se trouve
dans la feuil 1
Merci d'avance

 

[Bebere]

bonsoir
chich pour partie de gauche,adaptable pour partie de droite

Sub ice()
Dim C As Byte, NbC As Byte, L As Long
    C = 13: L = 3
    Application.ScreenUpdating = False
    For Each cel In Feuil1.[C3:J10]
        If cel <> "" Then
            Select Case NbC
            Case 3, 9, 15
                L = L + 1

            Case 6, 12
                L = L + 2

            End Select
            Feuil1.Cells(L, C) = cel 'M3:T10
            NbC = NbC + 1

            If C < 19 Then C = C + 3 Else C = 13
        End If
    Next
    Application.ScreenUpdating = True
End Sub

 

[chich]

bonsoir
chich pour partie de gauche,adaptable pour partie de droite

Sub ice()
Dim C As Byte, NbC As Byte, L As Long
    C = 13: L = 3
    Application.ScreenUpdating = False
    For Each cel In Feuil1.[C3:J10]
        If cel <> "" Then
            Select Case NbC
            Case 3, 9, 15
                L = L + 1

            Case 6, 12
                L = L + 2

            End Select
            Feuil1.Cells(L, C) = cel 'M3:T10
            NbC = NbC + 1

            If C < 19 Then C = C + 3 Else C = 13
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Merci !