Copier/coller cellules à la bonne ligne en fonction d'une condition

Bonjour à tous,

J'essaie de copier puis de coller des cellules à la bonne ligne en fonction de la semaine choisi (cellule C50).

J'ai du mal à trouver comment faire. Pouvez-vous m'aider?

Vouci mon code actuel:

Sub CopierColler()
Dim I As Integer
Dim Wbk As Workbook, ShtS As Worksheet
Set ShtS = ThisWorkbook.Sheets("Feuil1")

For I = 1 To .ListRows.Count
semaine = ShtS.ListColumns("semaine").DataBodyRange(I)

    If ShtS.Range("U18").Value = semaine.Value Then
    ShtS.Range("S12:AH" & dLigS).Copy Destination:=ShtS.Range.semaine
    End If

Next I

End Sub

Je me suis un peu embrouillé dans le code :-(

Lucas

Bonjour,

Très embrouillé même

Teste ceci