Copier et coller une plage

[sonskriverez]

Bonsoir le forum,

Pour comparer des cellules de 2 feuilles, j'utilise cette macros :

Sub compare()

Application.ScreenUpdating = False
Dim sht1 As Worksheet, sht2 As Worksheet
Dim cellule1 As Range, cellule2 As Range
Dim I As Integer
Dim note, lieu As String

Set sht1 = Worksheets("Feuille 1")
Set sht2 = Worksheets("Feuille 2")

note = "Pas Ok "
note1 = "OK"

For Each cellule1 In sht1.Range("A2:A" & sht1.Range("A65536").End(xlUp).Row)
sht1.Activate
For Each cellule2 In sht2.Range("A2:A" & sht2.Range("A65536").End(xlUp).Row)
sht2.Activate
If cellule1.Value = cellule2.Value Then
sht1.Activate
ActiveCell.Offset(0, 18).Value = note
sht2.Activate
ActiveCell.Offset(0, 1).Value = note1
Exit For
End If
Next cellule2
Next cellule1
Application.ScreenUpdating = False
End Sub

Sur le même principe je voudrais copier une plage (a la place des "note") , du genre en sheet1 , Activecell.Offset(0,18).copy les 4 cellules suivantes
et en Sheet2, Activecell.Offset(0,1).paste les cellules copiées.

Merci de votre aide


Merci de votre aide