Erreur 91

wbExcel.Application.Sheets("paie_200710_Ah").Select
Dim DerniereColonne
DerniereColonne = wbExcel.Application.ActiveSheet.UsedRange.Columns.Count - 1
        
  Dim maplage        
         
   Dim i As Integer

         Set maplage = wbExcel.Sheets.Application.Cells(1, DerniereColonne)
         
      
      For i = 1 To DerniereColonne
      wbExcel.Application.Cells.Find(What:=Left(wbExcel.Application.Cells(1, i).Value, 1) = "é", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=True _
        , SearchFormat:=False).Activate
    
         wbExcel.Application.ActiveCell.Select
                    
           wbExcel.Application.Selection.EntireColumn.Select
           wbExcel.Application.Selection.Delete