salut à tous et merci pour votre aide.
En cherchant un peu tout seul j'ai fini par trouver la macro qu'il me fallait, c'est peu etre pas la mieux mais ca marche.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
If Application.Intersect(Target, Range("F6")) Is Nothing Then GoTo 0
Sheets("Données").Select
ActiveSheet.Cells.Find(What:=Range("B6")).Activate
ActiveCell.Offset(0, 1).Activate
0
If Application.Intersect(Target, Range("I6")) Is Nothing Then GoTo 1
Sheets("Données").Select
ActiveSheet.Cells.Find(What:=Range("B6")).Activate
ActiveCell.Offset(0, 2).Activate
et je la continue pour toutes mes cellules qui peuvent etre modifiées.
A +