bonjour, j'aurais aimé une personne m'explique pourquoi j'ai une erreur de compilation.
merci d'avance.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub designation()

Range("rapport1!g13").Activate
Range("rapport1!g14:g200").Clear

For Each cell In Range("tableau-achat-location!o5:o200")
If cell.Value = Range("A2").Value Then
cell.Offset(0, 3).Copy
ActiveCell.Offset(1, 0).Activate
ActiveSheet.Paste

End If
Next cell

Application.CutCopyMode = False
Application.ScreenUpdating = False

End Sub