Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Object
Dim i As Integer
Dim Col As String, Deb As String
Plages = Array("A:A", "B:B", "C:C")
'pour éviter les cellules vides
If Target.Value = "" Then Exit Sub
For i = 0 To 2
Set C = Worksheets("Feuil1").Range(Plages(i)).Find(What:=Target, Lookat:=xlWhole)
If Not C Is Nothing Then
Col = Mid(C.Address, 2, 1)
Exit For
End If
Next i
Select Case Col
Case "A"
Deb = "L1"
Case "B"
Deb = "M6"
Case "C"
Deb = "N4"
End Select
If Target.Count = 1 Then
With Sheets("feuil1").Range(Deb & "65536").End(xlUp).Row.Offset(1, 0)
.Value = Target.Value
.NumberFormat = Target.NumberFormat
End With
End If
End Sub