erreur d'excution 13

bonjour,

j'ai une erreur de type 13 ci dessous le code:

sheets("Manquants").Activate
Range("X1").Select
ActiveCell.FormulaR1C1 = "Désignation Station"
Range("X2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-10]<>"""",VLOOKUP(RC[-10],Données!C[-20]:C[-19],2,FALSE),"""")"
Selection.AutoFill Destination:=Range(Cells(2, 24), Cells(taille2, 24)), Type:=xlFillDefault
Range("Y1").Select
Columns("X:X").EntireColumn.AutoFit
Columns("X:X").Select
Selection.Copy
Range("X1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("X1").Select
Application.CutCopyMode = False


For variableotp = 2 To taille2

If Cells(variableotp, 24) = "" Then
Cells(variableotp, 24).Select
Selection.ClearContents
End If

Next variableotp

la ligne violet est celle sur lequel ca sarrete.

merci de votre aide