السلام عليكم و رحمة الله تعالى و بركاته
لقد تحصلت على هذا الكود و تعميما للفائدة أضعه بين أيديكم لتقديم ملاحظاتكم و آرائكم
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub dl = Cells(Rows.Count, 4).End(xlUp).Row Set wsbs = Sheets("base salaire") Set wsbp = Sheets("base paie") dlws = wsbs.Cells(Rows.Count, "AA").End(xlUp).Row wsbs.Range("AA22:AA" & dlws).ClearContents dlws = wsbp.Cells(Rows.Count, "D").End(xlUp).Row wsbp.Range("D12:D" & dlws).ClearContents Range("D6:D" & dl).Copy wsbs.Range("AA22") Range("D6:D" & dl).Copy wsbp.Range("D12") End Sub