Désolé j ai une question si je ra joute un colonne j ajoute un lettre dans la ligne du range
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim rCel As Range, d%
'
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
On Error Resume Next
'
If Not Intersect(Target, [C8]) Is Nothing And Target <> "" Then
Set rCel = Rows(11 & ":" & UsedRange.Rows.Count).Find(what:=Target, lookat:=xlWhole, LookIn:=xlValues)
If Not rCel Is Nothing Then
rCel.Interior.ColorIndex = WorksheetFunction.Max(0, rCel.Interior.ColorIndex - 36) + 37
d = WorksheetFunction.Match(Target, Sheets("Rapport").Range("A:A"), 0)
Sheets("Rapport").Range("A" & d).Interior.ColorIndex = 37
Else
MsgBox "''" & Target & "'' n'existe pas dans ce TRANSIT", 16
End If
[C8].Select
End If
'
On Error GoTo 0
Application.ScreenUpdating = True
Application.EnableEvents = True
'
End Sub
Sub Evenement()
Application.EnableEvents = True
End Sub