Bonjour, j'ai l'erreur suivante, comment y remédier ?
"erreur d'exécution 13"
"incompatibilité de type"
Je souhaite enlever les espaces de toute cellule de mon tableau

1/ Fonction pour enlever les espaces

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Function EnleverEspaces()
Dim Cell As range
For Each Cell In Selection
Cell.Value = Trim(Cell.Text)
Next Cell
End Function
2/ Ma sélection

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Dim DepartColonne
Set DepartColonne = Worksheets("PRIX").range("A3:T200")
3/ Mon appel de la fonction au sein d'une autre fonction

Code : Sélectionner tout - Visualiser dans une fenêtre à part
EnleverEspaces (DepartColonne)