Sub RemoveTextWrap() Range("Ai").WrapText = False End Sub
Ce code vous aidera à supprimer le retour à la ligne de toute la feuille de calcul en un seul clic. Il sélectionnera d’abord toutes les colonnes, puis supprimera l’habillage du texte et ajustera automatiquement toutes les lignes et colonnes. Il existe également un raccourci que vous pouvez utiliser (Alt + H + W), mais si vous ajoutez ce code à QAT, c’est bien plus qu’un raccourci clavier.