Sub BalanceShareToRecap()
With Sheets("RECAP FRNS")
.UsedRange.Offset(1, 0).Delete
End With
With Sheets("FRNS BALANCE")
.UsedRange.Offset(1, 13).Copy Destination:=Sheets("RECAP FRNS").UsedRange.Offset(1, 0)
End With
With Sheets("SHARE pour coms")
.UsedRange.Offset(1, 13).Copy Destination:=Sheets("RECAP FRNS").UsedRange.Offset(Sheets("RECAP FRNS").UsedRange.Rows.Count - 1, 2)
End With
With Sheets("RECAP FRNS")
.Cells.EntireRow.AutoFit
.Cells.EntireColumn.AutoFit
End With
End Sub