VBA colorer cellule d'une colonne

Bonjour à tous,
Il y a 2 mois, un utilisateur, que je remercie, m'avais donner un code pour qu'un même texte d'une cellule L et Q se mettent en couleur quand je double clique dessus.
Exemple : Quand je clique sur "Fabien" dans la col L ou Q tous les "Fabien" de Q et de L se colorent.
J'ai essayé de refaire pour les colonnes I et N en changeant les lettres du code, mais impossible de le faire marcher. Pouvez m'aidez a changer ce code en conservant tous sauf le nom des colonnes ? (je veux garder les numéros de lignes qui sont toujours identiques avec les colonnes I et N)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
derligL = Range("L" & Rows.Count).End(xlUp).Row
derligQ = Range("Q" & Rows.Count).End(xlUp).Row
If Not Application.Intersect(Target, Range("L2:L" & derligL, "Q47:Q" & derligQ)) Is Nothing Then
Cancel = True
col = Target.Column
If col = 12 Then
D1 = 2: D2 = 47: Plage1 = "L2:L" & derligL: Plage2 = "Q47:Q" & derligQ: col2 = 17
Else
D1 = 47: D2 = 2: Plage1 = "Q47:Q" & derligQ: Plage2 = "L2:L" & derligL: col2 = 12
End If
Application.ScreenUpdating = False
Cel = Target.Value
Range(Plage1).Interior.Pattern = xlNone
Nb = Application.CountIf(Columns(col), Cel)
If Nb > 0 Then
lig = D1 'ligne de depart
For N = 1 To Nb
lig = Columns(col).Find(Cel, Cells(lig, col), , xlWhole).Row
If Cells(lig, col).Interior.Color = vbGreen Then
Cells(lig, col).Interior.Pattern = xlNone
Else
Cells(lig, col).Interior.Color = vbGreen
End If
Next N
End If
Range(Plage2).Interior.Pattern = xlNone
Nb = Application.CountIf(Columns(col2), Cel)
If Nb > 0 Then
lig = D2 'ligne de depart
For N = 1 To Nb
lig = Columns(col2).Find(Cel, Cells(lig, col2), , xlWhole).Row
If Cells(lig, col2).Interior.Color = vbGreen Then
Cells(lig, col2).Interior.Pattern = xlNone
Else
Cells(lig, col2).Interior.Color = vbGreen
End If
Next N
End If
End If
Application.ScreenUpdating = True
End Sub

'clic droit sur cellules colonne Q et L pour enlever couleur
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
derligL = Range("L" & Rows.Count).End(xlUp).Row
derligQ = Range("Q" & Rows.Count).End(xlUp).Row
If Not Application.Intersect(Target, Range("L2:L" & derligL, "Q47:Q" & derligQ)) Is Nothing Then
Cancel = True
Range("L2:L" & derligL).Interior.Pattern = xlNone
Range("Q47:Q" & derligQ).Interior.Pattern = xlNone
End If
End Sub