Sub SAUVEGARDEFICHECLIENTS()
Dim WsSource As Worksheet
Dim WsCible As Worksheet
Dim tabtemp As Variant
Dim MaLigneSource As tabtemp
Dim MaligneCible As tabtemp
tabtemp = .Range('C4:H' & derlgn) Fais toute tes déclarations avant d'utiliser des variables
De plus, tu utilises la variable derlgn qui n'est pas définie. Donc ça marche pô
Dim derlgn As Integer
Set WsSource = Worksheets('Clients')
Set WsCible = Worksheets('Sauvegarde')
Set MaLigneSource = WsSource.Range('C4:H' & derlgn).Value
With WsCible
derlgn = .Range('A65536').End(xlUp).Row + 1
Set MaligneCible = .Range(.Cells(derlgn, 1), .Cells(derlgn, 6))
MaligneCible.Value = MaLigneSource.Value
End With
End Sub