Sub TOTO()
Dim i&, j&, k&, n&, p&, q&, cl()
cl = Array("A", "B", "C")
n = UBound(cl)
p = [CLEF].Columns.Count
q = [Data].Columns.Count - [CLEF].Column + [Data].Column
For i = 1 To [CLEF].Rows.Count
For j = 1 To p
With [CLEF].Cells(i, j)
For k = 0 To n
If .Value = cl(k) Then Exit For
Next
If k <= n Then .Cells.Resize(, q - j + 1).Cut Destination:=.Offset(, p - j + 1)
End With
Next j, i
End Sub