Sub coller_Atig()
'
'Efface puis collage spécial valeurs
'
Range("A8:A2000").ClearContents 'effacer la zone
On Error Resume Next 'continuer même en cas d'erreur
Range("A8").PasteSpecial Format:="Biff4", Link:=False, DisplayAsIcon:=False 'collage spécial
If Err.Number <> 0 Then 'si il y a eu une erreur,
zoneCopie = Application.InputBox("Sélectionnez la zone à copier", , , , , , , 8) 'afficher le message d'erreur
zoneCopie.Copy 'copier la zone
Range("A8").PasteSpecial Format:="Biff4", Link:=False, DisplayAsIcon:=False 'collage spécial
End If
On Error GoTo 0 'continuer la macro normalement (plante si il y a une erreur)
Range("C1").Select
End Sub