Vous pouvez utiliser la fonction InputBox pour sélectionner une plage de cellules. Jetez un œil à la macro suivante.

Sub SelectionPlageCellules()
Dim plageCellule As Range
On Error Resume Next
Set plageCellule = _
Application.InputBox(prompt:="Plage de cellules", _
Type:=8)
If plageCellule Is Nothing Then
MsgBox "Vous n'avez pas sélectionné la plage de cellules", _
vbExclamation
Else
plageCellule.Select
End If
End Sub

Commentaires

■ Vous devez d’abord déclarer une variable de plage qui doit contenir la plage sélectionnée.

■ Pour selectionner une plage avec la zone de saisie, elle doit être de type 8.