XL 2013 Appliquer une macro sur des cellules avec des contenus identiques

Bonjour à tous,

Je souhaite effectuer une macro permettant d'effectuer une action dès qu'une cellule contient un certain texte
Seulement j'ai l'impression que lorsque cette action s'effectue une fois la macro s'arrete
J'espère être assez clair

Voici le code en question:

Sub Transfert_Tableau()
'Selectionne les cellules que l'on veut recopier
For i = 1 To 28
For j = 1 To 5
Cells(i, j).Select
If Cells(i, j).Value Like "Checklist description (FUNCTION)" Then
Cells(i, j + 1).Copy
Sheets("Sheet4").Activate
Cells(i, j).Select
ActiveSheet.Paste

ElseIf Cells(i, j).Value Like "Checklist name (ITEM)" Then
Cells(i, j + 1).Copy
Sheets("Sheet4").Activate
Cells(i, j).Select
ActiveSheet.Paste
End If
Next j
Next i


End Sub