Sub Test()
Dim col%, lig&
With Feuil1
col = .Columns("BR").Column
.Columns(col).Resize(, .Columns.Count - col + 1).Clear 'RAZ
With .Range("A1", .UsedRange)
For lig = 2 To 10000
If .Cells(lig, 2) = "Loué" Then
.Rows(lig).Cut .Cells(lig - 1, col)
End If
Next
End With
End With
End Sub