Sub test()
A_Supprimer = Array("DUREE", "DATE FIN")
Set origine = Cells.Find("NOM CLIENT", LookIn:=xlValues, lookat:=xlWhole)
If Not origine Is Nothing Then
ligne = origine.Row
For n = Cells(ligne, Columns.Count).End(xlToLeft).Column To 1 Step -1
For m = LBound(A_Supprimer) To UBound(A_Supprimer)
If Cells(ligne, n) = A_Supprimer(m) Then
Columns(n).Delete
End If
Next
Next
End If
End Sub