Simplifier un code target.adresse

Bonjour à tous

est-il possible de simplifier ce code? Merci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

For i = 11 To 22
    If Target.Address = "$F$" & i Then
      Calendrier.Show
      Cancel = True
    End If
Next

For i = 11 To 22
    If Target.Address = "$G$" & i Then
      HrsMins.Show
      Cancel = True
    End If
Next

For i = 11 To 22
    If Target.Address = "$H$" & i Then
      HrsMins.Show
      Cancel = True
    End If
Next

For i = 11 To 22
    If Target.Address = "$I$" & i Then
      HrsMins.Show
      Cancel = True
    End If
Next

For i = 11 To 22
    If Target.Address = "$J$" & i Then
      HrsMins.Show
      Cancel = True
    End If
Next

If Target.Address = "$G$6" Then
      Calendrier.Show
      Cancel = True
End If

If Target.Address = "$F$30" Then
      Calendrier.Show
      Cancel = True
End If
End Sub

Bonjour,

A tester :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    adresse = Target.Address

    For i = 11 To 22
        If adresse = "$F$" & i Then
            Calendrier.Show
            Cancel = True
            Exit For
        ElseIf adresse = "$G$" & i Or adresse = "$H$" & i Or adresse = "$I$" & i Or adresse = "$J$" & i Then
            HrsMins.Show
            Cancel = True
            Exit For
        End If
    Next

    If adresse = "$G$6" Or adresse = "$F$30" Then
        Calendrier.Show
        Cancel = True
    End If
End Sub

Merci beaucoup monsieur Sébastien. C'est grandement apprécié!