Programme sous Excel Aidez moi SVP

Salut,

En fait je débute en prog alors je suis vraiment pas doué j'ai essayé ceci mais ca marche pas ca bloque au moment ou le cut et paste dans B devrait se faire. Est ce que tu sais ce qui cloche dans mon programme s'il te plait? Merci ^_^

(PS: J'avais par erreur posté en double mon message celui est incomplet, en voici l'integralité en dessous)



---------------------------------------------------------------------------
Bonjour,

J'essaye via un programme de rechercher dans la Colonne A de mon document toutes les cellules ayant pour valeur "Grand Total" puis de couper respectivement le contenu de celle ci pour qu'elle soient collés dans la Colonne B sur leurs lignes respectives..

J'ai essayé sans succès le programme suivant, quelqu'un pourrait t'il m'aider s'il vous plait?

Merci par avance pour vos conseils et votre aide :

Sub GrandTotalaDroite()
'
Dim FirstAddress As String
Dim MySearch As Variant
Dim myColor As Variant
Dim FontColor As Variant
Dim FontBold As Variant

Dim Cut As Variant
Dim Move As Variant
Dim Paste As Variant

Dim rng As Range
Dim i As Long

MySearch = Array("GRAND TOTAL")
myColor = Array("15")
FontColor = Array("0")
FontBold = Array("True")
Move = Array("Offset (o, 1).select")
Cut = Array("Selection.Cut")
Paste = Array("Selection.Paste")

With Sheets("Sheet1").Range("A1:A2000")

.Interior.ColorIndex = xlColorIndexNone

For i = LBound(MySearch) To UBound(MySearch)
Set rng = .Find(What:=MySearch(i), _
After:=.Cells(.Cells.Count), _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)

If Not rng Is Nothing Then
FirstAddress = rng.Address
Do
rng.Interior.ColorIndex = myColor(i)
rng.Font.ColorIndex = FontColor(i)
rng.Font.Bold = FontBold(i)

rng.Cells.Activate = Cut(i)
rng.Cells.Activate = Move(i)
rng.Cells.Activate = Paste(i)

Set rng = .FindNext(rng)
Loop While Not rng Is Nothing And rng.Address <> FirstAddress
End If
Next i
End With

End Sub