Coller un tableau en enlevant les cellules vides dynamique

Bonjour

Pour avoir une aide il faut joindre ton fichier, pas son image. Fichier à poster sur le site cjoint.com, faire créer un lien , le copier et revenir le coller ici.

Dans l'attente

Cdlmnt

Via

Re,

Ton fichier avec une macro pour coller sans vides en dessous

https://www.cjoint.com/c/LICs2DTNFeu

Cdlmnt

Via

Il suffit d'adapter les n)s de lignes et de colonnes

macro avec explications :

Sub sansvides()
xr = 47 ' ligne avant celle où recopier en premier
yr = 2 ' colonne où recopier en premier

For y = 2 To 6 'boucle sur les colonnes de 2 à 6
For x = 17 To 46 ' boucle sur les lignes  de 17 à 46
If Cells(x, y) <> "" Then ' si cellule non vide
xr = xr + 1 ' on incrémente la ligne de recopie de 1
Cells(xr, yr) = Cells(x, y) ' on remplit la cellule avec le contenu de celle du premier tableau
If xr = 77 Then xr = 47: yr = yr + 1 ' lorsque on atteint la igne 77 on revient à la ligne  47 et on incrémente de 1 la colonne de  recopie
If yr = 7 Then yr = 8 ' si n° de col = 7 on passe à la colonne 8 (colonne d'espace)
End If
Next
Next

For y = 8 To 12
For x = 17 To 46
If Cells(x, y) <> "" Then
xr = xr + 1
Cells(xr, yr) = Cells(x, y)
If xr = 77 Then xr = 47: yr = yr + 1
If yr = 7 Then yr = 8
End If
Next
Next

For y = 17 To 18
For x = 17 To 46
If Cells(x, y) <> "" Then
xr = xr + 1
Cells(xr, yr) = Cells(x, y)
If xr = 77 Then xr = 47: yr = yr + 1
If yr = 7 Then yr = 8
End If
Next
Next
End Sub

Re,

Remplace

Cells(xr, yr) = Cells(x, y) 

par :

Cells(x, y).Select
  Selection.Copy
   Cells(xr, yr).Select
    ActiveSheet.Paste

Cdlment

Via