Copier d'un ligne à une autre code vba

STEPHANIEFRETILLET -  
Bonjour,

je voudrais copier ces 3 code de la ligne 1 à la ligne 300, avez vous une solution rapide à me proposer?

merci d'avce pour votre aide, 

If Not Intersect(Target, Range("B1")) Is Nothing Then
        Range("C1:E1").ClearContents
    End If
    If Not Intersect(Target, Range("C1")) Is Nothing Then
        Range("D1:E1").ClearContents
    End If
    If Not Intersect(Target, Range("D1")) Is Nothing Then
        Range("E1:E1").ClearContents
    End If

1 réponse

  1.  f894009
    Bonjour,

    Pouvez etre un peu plus explicite!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!