Bonjour,

Essayez ceci

Sub MAJ_Validation()
Dim f1 As Worksheet, f2 As Worksheet
Dim DerLig_Tab2 As Long
Set f1 = Sheets("Tab 1")
Set f2 = Sheets("Tab 2")
On Error...