Sub Macro1()
Dim o As Object 'déclare la variable o (Onglet)
Dim l As String 'déclare la variable l (Liste)
For Each o In Sheets 'boucle sur tous les onglets du classeur
l = IIf(l = "", o.Name, l & ", " & o.Name) 'définit la liste l
Next o 'prochain onglet de la boucle
For Each o In Sheets 'boucle sur tous les onglets du classeur
With o.Range("A1").Validation 'prend en compte la validation de données en A1
.Delete 'supprime une éventuelle validation antérieure
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=l 'impose la liste l comme validation de données
End With 'fin de la prise en compte de la validation de données en A1
Next o 'prochain onglet de la boucle
End Sub