Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("A:A"))
If Not Rg Is Nothing Then
Application.EnableEvents = False
For Each C In Rg
Select Case UCase(C.Value)
Case Is = "VIR"
C.Offset(, 1) = "Virement"
Case Is = "CHE"
C.Offset(, 1) = "Chèque"
Case Is = "CARTE"
C.Offset(, 1) = "Carte"
Case Else
C.Offset(, 1) = "Autre"
End Select
Next
Application.EnableEvents = True
End If
End Sub