Sub Macro1()
Dim o As Object 'déclare la variable o (Onglet)
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Set o = Sheets("Feuil1") 'définit l'onglet o (à adapter à ton cas)
dl = o.Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne 2 (=B)
Set pl = o.Range("B1:B" & dl) 'définit la plage pl
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
cel.Value = UCase(Replace(cel.Value, " ", "")) 'converti les minuscules en majuscules et supprime les espaces
Next cel 'prochaine cellule de la boucle
End Sub