Bonjour,

J'ai écris le code suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub commentTZ()
    Dim Cel As Range
    For Each Cel In selection
        Cel.AddComment (TestZéro(ActiveCel))
    Next Cel
End Sub
il ne fonctionne pas. l'erreur est la suivante : erreur de compilation fonction ou variable attendue...
visiblement il y a un problème au niveau du selection

Pouvez vous m'aider ?

Merci beaucoup