Bonjour Marie,
Pas bien sûr d'avoir compris ta demande....
Mais en tout cas voici "Application.ImputBox"... Découverte grace à Ti.... qui fait un peu comme le petit "le petit carré un peu bizarre sur lequel on clique qui permet de sélectionner des données" (lol)
Sub Marie()
Dim Plage As Range
Set Plage = Application.InputBox("Sélectionner une plage avec votre souris...", "SELECTION DE LA PLAGE A LA SOURIS", Type:=8)
MsgBox "Vous avez sélectionné : " & Plage.Address _
& vbCrLf & "Soit : " & Plage.Count & " cellules"
End Sub
Mais est-ce au moins ceci que tu cherches ?
@+Thierry