Sub Formeautomatique1_QuandClic()
Sheets(1).[A2:B200].Copy [A5]
With Columns("A:B")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=A1<>"""""
With .FormatConditions(1).Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
Range("A1").Select
End Sub