WDAndCo
XLDnaute Impliqué
Bonjour le Forum
Comment rendre cette Macro fonctionelle ?
Code:
Sub MAJ()
Sheets("Archives").Select
DL = Range("A65536").End(xlUp).Row'
DL = DL - 1
For LgEVS = 16 To 30
For LgArchives = 7 To DL
If Sheets("Archives").Range("BI" & LgArchives).Value = Sheets("EVS à jour").Range("BI" & LgEVS).Value Then
Sheets("Archives").Select : Range("D" & LgArchives "BG" & LgArchives).Select
Selection.Copy
Sheets("EVS à jour").Select
Range("D" & LgEVS).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Next LgArchives
Next LgEVS
End Sub