Bonjour ROBLOCHON, STAPLE
Merci bcp pour vos retours!
du coup j'ai modifié le code comme ceci
ça bloque toujours sur l'adresse. je suis trop léger en VBA pour piger ce qui bloque. Je suis désolé
Sub savebudget()
Dim wk As Workbook
Dim idx As Variant
Set wk = ThisWorkbook
Dim plage As Range, C As Range
Dim D As String
With wk.Sheets("data")
Set plage = Range("N20:R51")
If plage.Cells(plage.Cells.Count) <> "" Then
Set C = plage.Cells(plage.Cells.Count)
Else
Set C = plage.Find(what:="*", After:=plage.Cells(plage.Cells.Count - 1), SearchDirection:=xlPrevious)
End If
D = C.adress(0, 0)
End With
With Sheets("mix")
Range("N20:" & D).Copy
End With
With Sheets("data")
.Activate
idx = Application.Match(Sheets("mix").Range("B20"), .Range("A1:A1464"), 0)
If Not IsError(idx) Then .Cells(idx, 106).Select
Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
:=False, Transpose:=False
End With
End Sub