Private Sub Worksheet_BeforeDoubleClick(ByVal Cel As Range, Cancel As Boolean)
If Intersect(Cel, [F2:F65536]) Is Nothing Then Exit Sub
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
For Each Cel In Intersect(Cel, [F2:F65536]) 'traite toutes les cellules sélectionnées colonne F
If Cel <> "" Then 'si x existe
Range(Cel, Cel.Offset(0, 1)) = "" 'effacement repères colonnes F et G
Range(Cel.Offset(0, -5), Cel.Offset(0, 1)).Interior.ColorIndex = 0 'effacement couleur ligne
Sheets("Rapport actuel").Rows(WorksheetFunction.Match(0, _
Sheets("Rapport actuel").Range("M:M"), -1)).Delete 'suppression de la ligne en feuille "Rapport actuel" si repère = 0
Else 'si aucun X
Cel.Value = "X"
Cel.Offset(0, 1).Value = 1 'repère colonne G
Range(Cel.Offset(0, -5), Cel.Offset(0, 1)).Interior.ColorIndex = 15 'mise en couleur
End If
If Application.CountA([A1:E1].Offset(Cel.Row - 1)) < 5 Then _
Range(Cel, Cel.Offset(0, 1)) = "" 'si ligne incomplète efface repères colonnes F et G
Range(Cel.Offset(0, -5), Cel.Offset(0, 1)).Interior.ColorIndex = 0
Sheets("Entrée").Select
If Cel.Offset(0, 1) = 1 Then
Range(Cel.Offset(0, -5), Cel.Offset(0, 1)).Interior.ColorIndex = 15 'mise en couleur
With Sheets("Rapport actuel").Range("A65536").End(xlUp) 'dernière cellule colonne A
.Offset(1).FormulaR1C1 = "=Entrée!R" & Cel.Row & "C1" 'transfert Opération
.Offset(1, 1).FormulaR1C1 = "=Entrée!R" & Cel.Row & "C2" 'transfert Temps"
.Offset(1, 2).FormulaR1C1 = "=Entrée!R" & Cel.Row & "C3" 'transfert Taux
.Offset(1, 3).FormulaR1C1 = "=Entrée!R" & Cel.Row & "C4" 'transfert Coût"
.Offset(1, 4).FormulaR1C1 = "=Entrée!R" & Cel.Row & "C5" 'transfert Sous-Traitance et Achat
.Offset(1, 12).FormulaR1C1 = "=Entrée!R" & Cel.Row & "C7" 'transfert Repère colonne M
End With
End If
Next
Call SUPPR_DOUBLONS 'Module 1
Call Couleur_Fixe 'Module 2
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub