Sub decal_col()
Application.ScreenUpdating = False
Set dbt = Range("F:F").Find("", lookat:=xlWhole)
ligne = dbt.Row 'renvoi la dernière ligne du tableau
colonne = dbt.Column
For i = 2 To ligne
If Range("B" & i).Value = "Direction Etudes" Then Range("C" & i & ":E" & i).Copy Range("B" & i)
Next i
Application.ScreenUpdating = True
End Sub