La question posée est comment effacer toutes les lignes qui ne commencent pas par EUR et USD ? J'ai une feuille de calcul avec de nombreuses colonnes et dans ma colonne I, j'ai des libellés du type de ce qui suit dessous:    EUR PREPARATION    USD PREPARATION    GPB PREPARATION    EUR MOTEUR    CZK POSITION    JPY COMPTA    EUR VERSEMENT    USD APPLICATION    USD COMPTA    USD CHEQUES    EUR CHEQUE    JPY CHEQUE    GPB DIVERS    CZK VIREMENT       Pour réaliser cette manipulation voici le code VBA à utiliser.   Sub ChercheEuros()     Dim Cell As Range     Application.ScreenUpdating = False     ' Les critères de sélection sont dans la colonne I     Set plg = Range([I2], [I65536].End(xlUp))     For I = plg.Count + 1 To 2 Step - 1         If Mid(Cells(I, 9 ).Value, 1 , 3 ) = "EUR" Or Mid(Cells(I, 9 ).Value, 1 , 3 ) = "USD" Then         Else             Rows(I & ":" & I).Delete         End If     Next I End Sub