Salut Sebyg,
Salut H2so4,
exercice périlleux sans fichier, donc sans filet...
A noter que, dans le code suivant, ! à essayer sur une copie de ton fichier de travail !, les noms de feuille doivent être modifiés selon la réalité.
Tu utilises les CodeName des feuilles, mon code leur nom réel. Donc, ex : Feuil3 = disons, "BDD" ... Tu saisis ?
Ces précautions étant prises...
Sub Bouclette()
'
Application.ScreenUpdating = False
'
With Worksheets("Feuil13")
.Range("A120:B200").Clear
For x = 1 To 3
iRow = Worksheets(Choose(x, "Feuil2", "Feuil3", "Feuil4")).Range("L" & Rows.Count).End(xlUp).Row - 5
.Range("A" & WorksheetFunction.Min(120, .Range("A" & Rows.Count).End(xlUp).Row + 1)).Resize(1, iRow).Value = _
Worksheets(Choose(x, "Feuil2", "Feuil3", "Feuil4")).Range("L6").Resize(iRow, 2).Value
Next
End With
'
Application.ScreenUpdating = True
'
End Sub
A+