Bonjour Mayool
C'est une macro basique mais qui marche.
Sub CopieAlaSuite()
'Copie des résultats en "A1:B1"
Range("A1:B1").Copy
'Collage des données au fur et à mesure à partir de "L5".
Range("L5").Select
If ActiveCell = "" Then
ActiveCell.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Else
If ActiveCell.Offset(1, 0) = "" Then
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Else
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End If
End If
Range("A1").Select
End Sub
Salut
Bernard