Sub essai()
Dim Lig_2 As Long 'déclaration des variables
Dim Lig_C As Long
Application.ScreenUpdating = 0
For Lig_2 = 1 To F10.[B65536].End(xlUp).Row 'je définis ma boucle
Select Case Sheets("Feuil10").Cells(Lig_2, 84).Value 'je boucle en colonne 84
Case Is = "DA" 'si la cellule affiche DA
Cells.Rows(Lig_2).Copy 'je copie toute la ligne
Feuil11.Select 'je sélectionne la feuille 11
Lig_C = Feuil11.Range("B65536").End(xlUp).Row + 1 'je vais à la ligne b655536 je remonte jusqu à le première cellule non vide je me positionne juste en dessous
Cells(Lig_C, 1).PasteSpecial xlPasteValuesAndNumberFormats 'je colle la ligne
Application.CutCopyMode = False
End Select
Next
End Sub