Bonjour,
À mon travail nous sommes passé sous Office 365.
Avant (office 2010) cette macro fonctionnais, mais plus maintenant.
J'ai une erreur au niveau du ".Add Type" :
If Sheets(i).Name <> "Donnees" Then
Range("B2").Select
With Selection.Validation
'.Delete
.Add Type:=xlValidateList...