Macro - copier des données dans première colonne vide

C:\Users\LECOZANNET-00378\Desktop\Feuille date.png

Bonjour à tous et merci d'avance pour votre aide,

Description :
J'ai une feuille nommée (date). C'est une autre macro que je n'évoquerai pas ici (qui fonctionne :) )
Une autre nommée "tableau_synthese".

Sur la feuille (date) j'ai plusieurs colonnes dont :
- une colonne des entrées
- une colonne des soldes
- une colonne délais
Je voudrais coller ces trois colonnes sur la feuille "tableau_synthese" à partir de la première colonne vide avec leur entête sur la ligne 2

Puis en relançant la macro que ces colonnes (qui seront sur une feuille (date 2)) soient copiées sur les colonnes vides suivantes, etc... (cela me permet d'avoir un tableau de synthèse, base pour la création de courbes d'évolution de mes données)

Voici le début de mon code pour coller les entêtes et les données des "entrées" avec deux variantes dont aucune ne fonctionne ....
Sub Tableau_synthèse()
'
<ital>' Tableau_synthèse Macro'

'Colonne_ET : colonne en tête
'Colonne_E : colonne entrée
Dim Colonne_ET As Integer
Dim Colonne_E As Integer
'Mise en place des en têtes

Sheets("10 aout 2015").Select
Range("E4,G4,I4").Select
Range("I4").Activate
Selection.Copy'Trouver la première colonne vide et copier les entêtes

Sheets("Tableau_Synthese").Select

'Colonne_ET = 4


Colonne_ET = Cells(2, Cells.Columns.Count).End(xlToRight).Column + 1
'If Cells(2, Colonne_ET) = "" Then
'If Colonne_ET = "" Then
' La cellule ligne 2 colonne 1 est vide
'Cells(2, Colonne_ET).Select
Columns(Colonne_ET).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

'Else
'Cells(Columns.Count, Colonne_ET).End(xlUp).Offset(2, 0).Select
' End If



'Copier les entrées sur la Colonne vide dispo
'Copier

Sheets("10 aout 2015").Select
Range("I5:I30").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tableau_Synthese").Select

'trouver colonne vide

Colonne_E = 1

If Cells(3, Colonne_E) = "" Then
' La cellule ligne 3 colonne 1 est vide
Cells(3, Colonne_E).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Else
Cells(Rows.Count, Colonne_E).End(xlUp).Offset(2, 0).Select
End If</ital>

Merci à tous !