Bonjour,
Sub texte_majuscule()
'Renvoi les données des tableaux de la feuille en majuscule
ActiveWorkbook.Worksheets(4).Range("A1:V240").Value = UCase(ActiveWorkbook.Worksheets(4).Range("A1:V240").Value)
End Sub
pas besoin de plus.
Je me suis basé sur ton code mais je te déconseille d'utiliser ActiveWorkbook (sauf si compris et parfaitement voulu)
Tu ne sais pas quel classeur pourra être actif lorsque l'utilisateur lancera la macro.
Cite le classeur pour lever toute ambiguïté :
Workbook("mon_classeur").Worksheets(... etc
Idem pour Worksheets(4), qui est la 4ème feuille... jusqu'à ce qu'un utilisateur la déplace.
Utilise son nom ou son codename
eric