Bonjour,
WorkRng est un nom de variable qui représente un objet Range (= une plage de cellules).
Lorsque l'on déclare cette variable, elle est vide (puisque aucune plage ne lui est affectée) :
Dim WorkRng As Range
On lui affecte alors la plage actuellement sélectionnée dans l'application (ici Excel) :
Set WorkRng = Application.Selection
Ensuite, on boucle pour parcourir chaque cellule de cette plage (qui correspond à une variable cellule nommée Rng) :
For Each Rng In WorkRng
'Instruction(s)
Next Rng
Une plage/cellule à de nombreuses propriétés : une hauteur, largeur, couleur de fond, police, taille de police... et une valeur définie par la propriété ".Value". Ici, on modifie la valeur.
Replace est une fonction similaire à la fonction Excel =SUBSTITUE()
. Ici on remplace dans la valeur de la cellule, un double caractère "saut de ligne" par un unique caractère "saut de ligne". Celui ci est donné par la fonction Chr(CodeCaractère)
, équivalente à la fonction Excel =CAR(CodeCaractère)