Supprimer colonne après avoir servit ds un calcul pour une autre colonne

Bonjour à tous

Peut-être quelqu'un pourrais m 'aider , j'ai créer une macro qui me sert à sélectionner le chiffre le plus grand par ligne dans quatre colonnes et je place ce chiffre dans la 5 éme colonne , après je souhaites effacer les autres colonnes de cette feuille mais dans mon cas la valeur #Ref apparait dans la colonne du résultat Q .

voici mon code :

Sub TRIER_pls_grd()


Range("Q5").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])"
Selection.AutoFill Destination:=Range("Q5:Q200"), Type:=xlFillDefault

Range("L:P").Delete

End Sub

D'avance mercii pour votre aide si qql'un pet m 'aider..

Bonjour,

Votre code:

Sub TRIER_pls_grd()

Range("Q5:Q200").FormulaR1C1 = "=MAX(RC[-5]:RC[-1])"

Range("Q5:Q200").Value = Range("Q5:Q200").Value

Range("L:P").Delete

End Sub

Cdlt

Merci bcp Arturo pour ta solution ! ;-)

Une bonne soirée