Private Sub MonExcel_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
' Entre 2 plages de cellules
If Target.Areas.Count = 2 Then
Application.StatusBar = _
"Produit : " & Format(WorksheetFunction.Sum(Target.Areas(1)) * WorksheetFunction.Sum(Target.Areas(2)), " #,##0 ") & _
" / Différence : " & Format(WorksheetFunction.Sum(Target.Areas(1)) - WorksheetFunction.Sum(Target.Areas(2)), "#,##0.00") & _
" / Conversion € : " & Format(WorksheetFunction.Sum(Target.Areas(1)) / 655.957, "#,##0.00") & _
" / Conversion FCFA : " & Format(WorksheetFunction.Sum(Target.Areas(1)) * 655.957, " #,##0 ")
Else
Application.StatusBar = ""
End If
End Sub