AVIS DE RECHERCHE
A tous les XLDIENS! Le fichier de lola à disparu!!
Celui qui le retrouve, est gentiment prié de le remettre dans le message de lola.
Merci de votre compréhension.
Function couleur(plg As Range)
Application.Volatile
Dim i&
ReDim c(1 To plg.Count, 0)
For i = 1 To plg.Count: c(i, 0) = plg(i).Interior.ColorIndex: Next
couleur = c
End Function