Erreur 91 et variable

Bonjour à tous

Je suis sur un poste d'entreprise avec Excel 2016.

J'ai un souci avec une macro "enregistrée" qui bogue avec le message suivant :

" Erreur d'exécution '91' :

Variable objet ou variable de bloc With non définie. "

Il s'agit de classer la colonne A par ordre alphabétique avant de convertir deux colonnes et insérer 14 autres.

Un avis ?

Merci à tous pour votre aide.

Voici la macro :

Sub RapportManifExploit()

'

' RapportManifExploit Macro

'

'

ActiveWorkbook.Worksheets("R213").AutoFilter.Sort.SortFields.Clear

ActiveWorkbook.Worksheets("R213").AutoFilter.Sort.SortFields.Add Key:=Range( _

"A:A"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

With ActiveWorkbook.Worksheets("R213").AutoFilter.Sort

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Range("N1").Select

Columns("N:N").EntireColumn.AutoFit

Columns("N:N").Select

Selection.TextToColumns Destination:=Range("N1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _

Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _

:=Array(1, 1), TrailingMinusNumbers:=True

Range("Q1").Select

Columns("Q:Q").EntireColumn.AutoFit

Columns("Q:Q").Select

Selection.TextToColumns Destination:=Range("Q1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _

Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _

:=Array(1, 1), TrailingMinusNumbers:=True

Columns("T:AG").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

End Sub

Bonjour,

La macro s'attend à ce qu'il y ait un filtre sur l'onglet "R213", sinon Erreur91.

Sur quelle ligne de code le traitement s'arrête ? Cela nous aidera

Difficile à dire sans un fichier en exemple ...

Bouben

Le rapport ne me le dit pas.

J'ai résolu mon problème en recréant la macro pour intégrer la mise en place du filtre.

Merci pour ton aide et tes lumières.