Remplacer une partie de la macro

Bonjour à tous,

j'aimerai changer une partie de la macro : au lieu de demander à l'utilisateur la ligne puis la colonne pour déterminer l'emplacement de la/les cellule(s) (suivant la macro), j'aimerai qu'il rentre directement le nom de la cellule (exemple : il rentre la cellule "A1"). J'ai 2 macros.

1re macro : il n'y a qu'une cellule j'aimerai que l'utilisateur rentre le nom de la cellule dans l'Inputbox

2eme macro : il y a 2 cellules donc 2 noms de cellules à rentrer dans le/les Inputbox

Voilà, merci d'avance

Bonjour

1re macro : il n'y a qu'une cellule j'aimerai que l'utilisateur rentre le nom de la cellule dans l'Inputbox

Le code à modifier :

Sub gg()
Dim a As String
a = InputBox("Reference de la cellule")
Range(a).Select
End Sub

2eme macro : il y a 2 cellules donc 2 noms de cellules à rentrer dans le/les Inputbox

Sub effacer_contenu()
Dim a As String, b As String

On Error Resume Next
a = InputBox("reference de la premiere cellule à effacer")
b = InputBox("reference de la premiere cellule à effacer")

Range(a).ClearContents
Range(b).ClearContents

End Sub

Si ok et terminé merci de cloturer le fil en cliquant sur le petit v en haut à droite

Cordialement

Merci Dan !!