[COLOR="Red"]With ThisWorkbook.Sheets("Liste").Range("Comptes") [COLOR="Blue"]'ou seulement With Range("Comptes")[/COLOR]
ThisWorkbook.Names.Add "Comptes", RefersTo:=.Resize(, 1)[/COLOR]
With ThisWorkbook.Sheets("Frais généraux")
For i = 1 To 300 Step 3
.Cells(i, 1).Validation.Delete
.Cells(i, 1).Validation.Add xlValidateList, xlValidAlertStop, xlBetween, "=Comptes"
Next i
End With
[COLOR="Red"]ThisWorkbook.Names.Add "Comptes", RefersTo:=.Resize(, 2)
End With[/COLOR]