Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Stop
Cancel = False
Target.Value = IIf(Target.Value = "" And Target.Offset(, -3) <> "", "VRAI", "")
Cancel = True
Set ws_source = Sheets("Livret de compétences")
Set ws_cible = Sheets("Fiche de positionnement TP")
With ws_cible
.Range("A8:Q17").ClearContents 'On efface les données présentes
ligne = 7 'on définit la première Ligne Cible
For I = 4 To 106
If ws_source.Range("E" & I) = "VRAI" Then
ligne = ligne + 1 'on incrémente la Ligne Cible
.Range("A" & ligne) = ws_source.Cells(I, 2)
.Range("B" & ligne) = ws_source.Cells(I, 3)
End If
Next I
End With
End Sub