Erreur 91 Urgent SVP

[thugiba3]

Bonjour,

Je viens solliciter votre aide.

J'ai l'erreur 91 "variable objet ou variable de bloc With non définie"

Voici mon code:

Sub Merge_cells()

Dim i As Integer
Dim Cells As Range
Dim Selection As Range
Dim A As Integer
Dim B As Integer

For i = 4 To 10 Step 1

A = Cells(6, i).Value
B = Cells(6, i + 1).Value

If A = B Then
Range(Cells(6, i), Cells(6, i + 1)).Select
Selection.MergeCells = True
End If

i = i + 1

Next

End Sub


Merci d'avance

 

[thugiba3]

Re : Erreur 91 Urgent SVP

J'ai trouvé,

C'est à cause des variables "Selection" et "cells" que j'ai définies avant.
En les enlevant le code fonctionne parfaitement.

Merci beaucoup.

Sacrée erreur 91...