Sub Bouton1_QuandClic()
Range("B12").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
End Sub
ActiveCell.Value = StrConv(ActiveCell, vbUpperCase)
=CONCATENER(MAJUSCULE(C13);MAJUSCULE(D13))
=MAJUSCULE(C13) & MAJUSCULE(D13)
=MAJUSCULE(C13 & D13)