Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim X As Integer
Application.EnableEvents = False
With Sheets("Feuil1")
For X = 6 To 255 Step 3
If Cells(64, X) <> "" Then Cells(64, X).GoalSeek Goal:=Cells(73, X).Value, ChangingCell:=Cells(34, X)
Next X
End With
Application.EnableEvents = True
End Sub