Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range
If Not Application.Intersect(Target, Range("I:I")) Is Nothing Then
Call CouleurJaune
Call CopieImpression
End If
If Intersect(Target, [I:I]) Is Nothing Or CStr(Target(1, 3)) = "" Then Exit Sub
Cancel = True
With Feuil1
Set c = .Columns(5).Resize(, .Columns.Count - 4).Find(CStr(Target(1, 3)), , xlValues, xlWhole)
End With
If Not c Is Nothing Then Application.Goto c.Offset(, 2)
Worksheets("PLANNING").Activate
ActiveCell.Value = "PL"
Worksheets("TABLEAU DE BORD").Activate
End Sub