Public Sub MaMacro(iName As String, iRange1 As Range, iRange2 As Range)
MsgBox "Le string est : " & iName & vbCr & vbCr & "voila le produit des deux cellules passées :" & vbCr & (iRange1 * iRange2)
End Sub
'pour appeler ta fonction, soit tu crées un bouton auquel tu rattaches la macro suivante, soit tu utilises une proécdure évènementielle rattachée à la feuille de calcul ...
Sub demo()
Call MaMacro("une ficelle", [A1], [A2])
End Sub