Deplacer cellule valeur (par drag and drop),sans format

Bonjour à tous;

Comme dit dans le sujet, j'ai un fichier excel ou je voudrais lorsque je glisse la valeur d'une cellule vers une autre que seulement la valeur se deplace et non le format . Quelqu'un à une idées?.

Merci d'avance

Bonjour,

A mettre dans le module de la feuille mais c'est juste un premier jet, je n'ai pas tester trop loin. La variable "Changer" évite de modifier le formatage sur une simple sélection. Le glisser/Déplacer génère aussi la procédure "Worksheet_Change" :

Dim Changer As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)

    Changer = True

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Changer = True Then
        Target.ClearFormats
        Changer = False
    End If

End Sub