Bonjour,
J'ai réussi à mettre les noms en majuscule mais pas en gras :
Do: Nom = TS(LS, 1): TR(1, 1) = UCase(Nom)
Range(TS(LS, 1): TR(1, 1)).Font.Bold = True
autre chose pour les bordures j'ai ce code :
End With
With Union(Range(Rng(4, 1), Rng(LTot - 1, 22)), Range(Rng(4, 23), Rng(LTot - 1, 23)), Range(Rng(4, 24), Rng(LTot - 1, 24)), Range(Rng(4, 25), Rng(LTot - 1, 25)), Range(Rng(LTot, 23), Rng(LTot, 25))).BorderAround(ColorIndex:=16)
End With
mais je pense que le Union selectionne tout ensemble alors que je souhaite que chaque plage de cellule ait une bordure
merci et bonne Année !!!