Bonour Grégory T
Sans passer par VBA, je ne vois pas. Ceci dit, je suis loin de posséder la science infuse.
Donc voici un petit bout de code à adapter, bien sûr, en fonction de ce que tu as à faire.
Range("b4").Select
Selection.AutoFill Destination:=Range("B4:B19"), Type:=xlFillDefault
Range("B4:B19").Select
With Selection
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
Pour tester, tu mets "N'importe quoi1" en B4 et tu lances la macro.
En espérant que cela te dépanne.
Abel