classeur1 = ActiveWorkbook.Name
nomfeuille1 = "SAISIE"
col1 = "i"
lidep1 = 2
dl1 = Sheets(nomfeuille1).Range(col1 & "65536").End(xlUp).Row + 2
nomfeuille2 = "BD tournée" '"Feuil1"
col2 = "a"
lidep2 = 2
dl2 = Sheets(nomfeuille2).Range(col2 & "65536").End(xlUp).Row + 1
'************************************
With Sheets(nomfeuille1)
Lig = recherchemot("A1:A" & dl2, Sheets(nomfeuille1).Range("b1"), nomfeuille2, 1)
Set plage = .Range(col1 & lidep1 & ":" & col1 & .Range(col1 & "65536").End(xlUp).Row)
For Each cellule In plage
If cellule.Value <> "" Then
i = recherchemot("A1:IV1", cellule.Value, nomfeuille2, 3)
[COLOR="Red"]Sheets(nomfeuille2).Cells(Lig, i).Value = cellule.Offset(0, 1).Value
Sheets(nomfeuille2).Cells(Lig, i + 1).Value = cellule.Offset(0, 2).Value
Sheets(nomfeuille2).Cells(Lig, i - 1).Value = cellule.Offset(0, -1).Value[/COLOR]
End If
Next cellule
End With