Bah sans la boucle les bordures intérieures s'affichent aussi !!@ Job : dans l'autre fil, on peut éviter la boucle avec : Target.Borders.Weight = xlThick
Target.BorderAround Weight:=xlThick
Pour éclairer ta lanterneBonjour,
ne sachant pas de quel autre fil il s'agit je serai peut-être hors sujet.
Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Oust As Boolean)
Oust = 1: R = Date: R.Interior.color = vbGreen
End Sub