VBA Selection de cellules non vide.

Dim DerniereLigne As Integer 
DerniereLigne = Range("A65536").End(xlUp).Row

Dim DerniereLigne As Integer 
DerniereLigne = Range("A65536").End(xlUp).Row 
Range("A4:A" & DerniereLigne).Copy

Sheets("GCE_Globale_cible").Range("B65536").End(xlUp).Offset(1, 0).Row

Sub test() 
'Déclaration des variables 
'Ici on va désigner par Ws les différentes feuilles du classeur 
Dim Ws As Worksheet 
Dim DerniereLigne As Integer 
'Pour toutes les feuilles dans le classeur actif 
For Each Ws In ThisWorkbook.Worksheets 
'On ne fait rien si le nom de la feuille est "GCE_Globale_cible" 
    If Ws.Name = "GCE_Globale_cible" Then 
'sinon, si le nom de la feuille est différent de "GCE_Globale_cible" 
    Else 
'on détermine la dernière ligne remplie 
        DerniereLigne = Ws.Range("A65536").End(xlUp).Row 
'on copie la plage de A4 à la dernière ligne et on la colle 
'dans la première cellule vide col B de la feuille "GCE_Globale_cible" 
        Ws.Range("A4:A" & DerniereLigne).Copy Sheets("GCE_Globale_cible").Range("B65536").End(xlUp).Offset(1, 0) 
End If 
'Feuille suivante s'il vous plait... 
Next Ws 
End Sub

Sub test(Nb_Onglet)
Dim Derlig As Long
Dim i As Long
Dim j As Long
Dim lig As Long

lig = 4
For i = 1 To Nb_Onglet 
   Derlig = Sheets(i).Range("A65536").End(xlUp).Row
   For j = 4 to Derlig
       If Sheets(i).Range("A" & j).Value <> "" Then
            Sheets("GCE_Globale_cible").Range("B" & lig).Value = Sheets(i).Range("A" & j).Value
            lig = lig + 1
       End If
    Next j
Next i

End Sub