C'est une idée assuri mais l'erreur revient... J'avais tenté avec des boucles et même résultat et je ne comprends pas pourquoi j'ai systématiquement ce blocage.
Voici mon code pour mieux visualiser, j'ai laissé la zone de recherche de cellule vide volontairement.
Pour être plus précis, je dois tester sur la colonne E si une cellule est vide (tester les colonnes B à H serait l'idéal mais avec la colonne E ça devrait suffire), et ce de la ligne 2 jusqu'à la ligne 89 maximum,et dès qu'elle est trouvée, coller la zone de la Sheet1 préalablement copiée vers la colonne B.
Sub copyLine()
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 7)).Select 'sélectionne la zone à copier de la ligne active
Selection.Copy 'copie la zone
Sheets("Sheet2").Activate 'active la sheet2
'rechercher la première ligne dont la cellule des colonnes B à H sont vides
'se déplacer vers la colonne 2 (B)
ActiveSheet.Paste ' coller la sélection en provenance de sheet1
Sheets("Sheet1").Activate 'retour vers sheet1
Selection.ClearContents 'effacement des cellules sélectionnées
End Sub