Pbs macro recap

Bonjour tout le monde !

vous avez été top la dernière fois alors je me tourne à nouveau vers vous pour un petit coup de main !

J'ai juste un petit problème dans une macro qui doit faire le recap d'une page et je ne comprends pas pourquoi Excel ne me renvoie pas ce que je veux :p

Voici mon fichier, dans la macro j'ai deux façon de faire qui devraient marcher selon moi mais qui pourtant ne marche pas :p

Donc si vous avez le temps de jeter un coup d’œil ce serait top !

Merci

Bonjour,

à tester,

Sub recap()
Dim sh1, sh2, i As Integer, k As Long, ligne As Long
Set sh1 = Sheets("Feuille temps")
Set sh2 = Sheets("recap")
sh2.Rows("2:" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
ligne = 2

        For i = 3 To 32
          For k = 12 To 34
              If sh1.Cells(11, i) = "L" Then nom = sh1.Cells(10, i)
              If sh1.Cells(k, i) <> "" And sh1.Cells(k, 1) <> 0 Then
                sh2.Cells(ligne, 1).Value = nom
                sh2.Cells(ligne, 2).Value = sh1.Cells(4, 25).Value
                sh2.Cells(ligne, 3).Value = sh1.Cells(4, 32).Value
                sh2.Cells(ligne, 4).Value = sh1.Cells(11, i).Value
                sh2.Cells(ligne, 5).Value = sh1.Cells(k, 1).Value
                sh2.Cells(ligne, 6).Value = sh1.Cells(k, i).Value
                ligne = ligne + 1
            End If
         Next k
    Next i
End Sub

Yep ça marche nickel !

Astucieux comme façon de faire !

Merci chef !