Sub CopierColler()
'éfface les céllules vide
Dim Cellule As Range
For Each Cellule In ActiveSheet.Range("M2:M50")
If Cellule Is Nothing Or Cellule.Value = "" Then
Cellule.Clear
End If
Next Cellule
'copier coller dernier cellule vide
Range("C3:C12").Select
Application.CutCopyMode = False
Selection.Copy
Range("M" & Range("M65535").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'éfface les céllules vide
For Each Cellule In ActiveSheet.Range("M2:M50")
If Cellule Is Nothing Or Cellule.Value = "" Then
Cellule.Clear
End If
Next Cellule
''copier coller dernier cellule vide
Range("F3:F12").Select
Application.CutCopyMode = False
Selection.Copy
Range("M" & Range("M65535").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub