Bonjour, merci à vous deux pour vos réponses ! Theze, ta proposition ne correspond pas à mon cas, je souhaite copier/coller la plage de cellules, si je remplace Range par Cells, cela ne copie que la cellule à certaines coordonnées (First_Cell, Last_Cell en l'occurence).
Comme le fait remarquer Algoplus, le problème vient du fait que First_Cell, Last_Cell prennent des valeurs numériques alors que j'aurais voulu qu'ils conservent chacun l'entièreté de la cellule que je leur attribue, pour en faire les 2 cellules de mon Range (et donc avoir ma plage). Mais bizarrement, Excel semble faire un .Value au moment de leur attribution.
J'ai donc supprimé mes First_Cell et Last_Cell, j'ai stocké les coordonnées de ma First_Cell dans Row_Offset_Final et dans Column_Offset_Final
J'ai donc modifié comme ceci pour la fin du code :
Row_Offset_Final = Row_Offset + 2
Column_Offset_Final = Column_Offset + 1
First_Cell = Cells(Row_Offset + 2, Column_Offset + 1)
blank = 0
While Not blank = 30
If ActiveCell.Offset(Row_Offset, Column_Offset).Value = "" Then
blank = blank + 1
Else
blank = 0
End If
Row_Offset = Row_Offset + 1
Wend
Last_Cell = Cells(Row_Offset - 30, Column_Offset + 1)
Column_Content = Range(Cells(Row_Offset_Final, Column_Offset_Final), Cells(Row_Offset - 30, Column_Offset + 1)).Value 'copie
Range(Cells(20, 20), Cells(33, 20)).Value = Column_Content 'colle
End Sub
Pour l'instant, ça fonctionne ! Merci à tous !