Bonjour,

j'ai écrit ce code (avec votre aide):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 If Source <> "" Then  --> Source est de type: "Feuil1!$A$8"
 
   Set T = Range(Replace(Source.Value, ";", ","))
 
 End If
 
MsgBox ("coucou" & UBound(T, 2))
Cependant lorsqu'il n'y a qu'une valeur de selectionnée je me retrouve avec un message d'erreur, comment puis je faire pour que cela marche? Car j'ai besoin de la taille de la selection.

Merci.