Sub copie()
dim i,j as integer
j=6
Sheets('Gestion_Client').Select
Range('A6').Select
do while cells(j,1).value<>''
j=j+1
loop
For i = 5 To Range('A65536').End(xlUp).Row
Sheets('Gestion_Client').Cells(i + 1, 1).Value = Sheets('Client').Cells(i, 1).Value
Sheets('Gestion_Client').Cells(i + 1, 2).Value = Sheets('Client').Cells(i, 2).Value
Sheets('Gestion_Client').Cells(i + 1, 3).Value = Sheets('Client').Cells(i, 3).Value
Next i
End Sub