Re,
Dans le fichier que je t'ai joint, si tu écris i ou s dans la colonne I, (=>) s'inscrit bien dans la colonne A , du moins chez moi ça fonctionne
J'ai apporté une petite modif, si I ne contient pas i ou s, alors A est vide.
Tu as bien placé le code dans le module de la feuille ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DernLigne As Long
DernLigne = Range("I" & Rows.Count).End(xlUp).Row
For x = 3 To DernLigne
If Range("I" & x).Value = "i" Or Range("I" & x).Value = "s" Then
Range("A" & x).Value = "(=>)"
Else
Range("A" & x).Value = "" 'sinon A reste vide
End If
Next x
End Sub
Si tu préfères une macro associée à un bouton :
Sub Bouton1_Cliquer()
Dim DernLigne As Long
DernLigne = Range("I" & Rows.Count).End(xlUp).Row
For x = 3 To DernLigne
If Range("I" & x).Value = "i" Or Range("I" & x).Value = "s" Then
Range("A" & x).Value = "(=>)"
Else
Range("A" & x).Value = ""
End If
Next x
End Sub