Sub IMP_M2()
'Stop rafraichissement ecran
Application.ScreenUpdating = False
'Définition de la dernière ligne de l'onglet Data
Dim DernLigne As Long
DernLigne = Worksheets("Data").Range("A" & Rows.Count).End(xlUp).Row
'Je définis ma valeur à chercher
ValCherch = Sheets("MODULE2").Range("D1").Value
'Je crée ma boucle de copie : si la valeur de la cellule (i,140) est égale à ValCherch alors copier la ligne i dans l'onglet IMP_M2
Dim i As Integer
Dim k As Integer
k = 2
For i = 1 To DernLigne
If Worksheets("Data").Cells(i, 140).Value = ValCherch Then
Sheets("Data").Range("A" & i & ":EK" & i).Select
Selection.Copy
Worksheets("IMP_M2").Activate
Worksheets("IMP_M2").Cells(k, 1).Select
ActiveSheet.Paste
k = k + 1
Worksheets("Data").Activate
End If
Next i
'Rafraichissement ecran
Application.ScreenUpdating = True
End Sub