' Effectuer la copie / collage de chaque feuille
DernLig& = Columns(1).Rows(Rows.Count).End(xlUp).Row
If DernLig >= 12 Then
For Each Cell In Range("A12:A" & DernLig)
If Cell <> "" Then
R$ = Range(Cell.Address).Offset(0, 1).Address
WbkS.Sheets("Liste qui fait quoi").Range(R$).Copy 'Destination:=WbkD.Sheets("Table").Range(R$)
WbkD.Sheets("Table").Range(R$).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Next
End If
Application.CutCopyMode = False
' Message de fin