Sub recopie_des_données()
Dim WsSource As Worksheet
Dim WsCible As Worksheet
Dim MaLigneSource As Range
Dim MaligneCible As Range
Dim derlgn As Integer
Set WsSource = Worksheets('client')
Set WsCible = Worksheets('Gestion Client')
Set MaLigneSource = WsSource.Range('A5:J5')
With WsCible
derlgn = .Range('A65536').End(xlUp).Row + 1
Set MaligneCible = .Range(.Cells(derlgn, 1), .Cells(derlgn, 10))
MaligneCible.Value = MaLigneSource.Value
MaLigneSource.ClearContents
End With
End Sub