Bonsoir,
une proposition
Sub ouvrirtest()
Set ws1 = Sheets("feuil1")
Set ws2 = Sheets("feuil2")
dl2 = ws2.Cells(Rows.Count, 1).End(xlUp).Row
'copie groupe 1
dlgr1 = ws1.Range("A3").End(xlDown).Row
ws2.Cells(dl2 + 1, 1).Resize(dlgr1 - 2, 3).Value = ws1.Range("A3").Resize(dlgr1 - 2, 3).Value
dl2 = dl2 + dlgr1 - 2
'copie groupe 2
dlgr1 = ws1.Range("E3").End(xlDown).Row
ws2.Cells(dl2 + 1, 1).Resize(dlgr1 - 2, 3).Value = ws1.Range("E3").Resize(dlgr1 - 2, 3).Value
dl2 = dl2 + dlgr1 - 2
'copie groupe 3
dlgr1 = ws1.Range("A20").End(xlDown).Row - 19
ws2.Cells(dl2 + 1, 1).Resize(dlgr1 - 2, 3).Value = ws1.Range("A20").Resize(dlgr1 - 2, 3).Value
End Sub
note que la mise en page de la feuille source va te poser des problèmes si tu as un nombre plus important de lignes que ce qui est prévu dans ton fichier. Je te conseille, si tu le peux de la revoir. (1 feuille par groupe de données, par exemple).