'test et parametrage de la cellule qu'il faudra copier
If Me.Range("K5").value <> "" and Me.Range("K5").value <> 0 Then
Set [COLOR="Red"]RangeACopier = Me.[K5][/COLOR]
Else If Me.Range("K5").value <> "" and Me.Range("K5").value = 0 Then
Set [COLOR="Red"]RangeACopier = Me.[K2][/COLOR]
End If
With Me
.Cells(WorksheetFunction.Max(10, .Cells(.Rows.Count, 5).End(xlUp).Row), 5).Offset(2 + IsEmpty(.[E]), 0) = [COLOR="Red"]RangeACopier[/COLOR]
End With
With Sheets(Me.Next.Name)
.Cells(WorksheetFunction.Max(6, .Cells(.Rows.Count, 7).End(xlUp).Row), 3).Offset(1 + IsEmpty(.[]), 0) = [COLOR="Red"]RangeACopier[/COLOR]
End With