Bonjour,
.Range("E6:E200").WrapText = True
La seule ligne utile est celle-ci.
Tu la retiens et tu supprimes le reste.
Et tu construis une boucle pour boucler sur tes onglets.
Si la même plage est concernée ce sera facile, sinon il faudra adapter...
Pour la boucle tu peux te contenter de :
Dim ws As Worksheet
ça pour ne pas oublier de déclarer ses variables...
For Each ws In Worksheets
.Range("E6:E200").WrapText = True
Next ws
Si toutes les feuilles ne sont pas concernées, une condition sur le nom de la feuille permettra d'éliminer celles à ne pas traiter.
Et passer un peu de temps à apprendre à lire le code, cela peut servir !
Cordialement.