Range("A1:C1").Offset(1, 1)

 
MsgBox Range("A1").Next.Address(True, True, xlA1, False)

 
MsgBox Range("A1").Resize(3, 2).Address(True, True, xlA1)

 
Range("A1").Resize(3, 2).Offset(,1).ClearContents

  
Dim objRange As Range

For Each objRange In Range("A3:A12,D10:E21,I1:I16").Areas
    objRange.Merge False
Next

MsgBox Cells(2, 4).CurrentRegion.Address(True, True, xlR1C1)

Range("A1").EntireColumn.Select

Range("A1").EntireColumn.SpecialCells(xlCellTypeConstants).Select

Application.Union(Range("A1").EntireColumn.SpecialCells(xlCellTypeConstants), Range("A1").EntireColumn.SpecialCells(xlCellTypeFormulas)).Select

Range("A1", Range("A1").End(xlDown)).Select

Range("A1", Range("A1").EntireColumn.Find(What:="*", SearchDirection:=xlPrevious)).Select

Dim objWorksheet As Worksheet, objRange As Range
Set objWorksheet = ThisWorkbook.Worksheets(1)
Set objRange = objWorksheet.UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors)

 
Dim Msg As String, objRange As Range

With ThisWorkbook.Worksheets(1).Range("A3:A11,D7:E14,G1:G4,I15:J23,C22:F22")
    Msg = "La plage contient " & .Cells.Count & " cellules dans " & .Areas.Count & " plages continues" & vbCrLf
    For Each objRange In .Areas
        Msg = Msg & "La plage " & objRange.AddressLocal(False, False, xlA1) & " contient " & objRange.Cells.Count & " cellules" & vbCrLf
    Next
End With
MsgBox Msg

Range("A2:C21").AutoFilter Field:=1, Criteria1:=">10",
Range("A2:C21").SpecialCells(xlCellTypeVisible).Copy Destination:=Range("A24")

    Dim P As Range
    
	On Error Resume Next
    Set P = Application.InputBox("Sélectionnez une cellule ou une plage :", Type:=8)
    On Error GoTo 0
    If P Is Nothing Then MsgBox "Sélection annulée"

objRange.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic

Dim objWorksheet As Worksheet, objRange As Range

Set objWorksheet = ThisWorkbook.ActiveSheet
Set objRange = objWorksheet.Range(objWorksheet.Cells(1, 1), objWorksheet.Cells(10, 10))
With objRange.Borders
    With .Item(xlInsideHorizontal)
        .ColorIndex = 5
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
End With

With objRange.Borders
    .ColorIndex = 5
    .LineStyle = xlContinuous
    .Weight = xlThin
End With

Sub Test()
    VerifIntersection Range("A1")
    VerifIntersection Range("B10")
End Sub


Sub VerifIntersection(Cellule As Range)
    Dim Plage As Range
    
    'Définit la plage de référence
    Set Plage = Range("A5:B15")
    
    If Not Intersect(Plage, Cellule) Is Nothing Then
         MsgBox Cellule.Address & " appartient à la plage " & Plage.Address
        Else
         MsgBox Cellule.Address & " n'appartient pas à la plage " & Plage.Address
    End If
End Sub

Dim A As Range, B As Range, C As Range
Dim Cell As Range, Commun As Range, PlageResultat As Range

Set A = Range("A1:A10")
Set B = Range("A7:A15")

Set Commun = Application.Intersect(A, B)

For Each Cell In Union(A, B)
    If Intersect(Cell, Commun) Is Nothing Then
        If PlageResultat Is Nothing Then
            Set PlageResultat = Cell
            Else
            Set PlageResultat = Union(PlageResultat, Cell)
        End If
    End If
Next Cell

MsgBox PlageResultat.Address

Function CreationTableau(ParamArray Cellules1()) As Variant
    'Adapté de:
    'http://support.microsoft.com/?kbid=213403
    '
    Dim VarTab() As Variant
    Dim Temp As Variant
    Dim i As Integer
    Dim w As Integer, X As Integer, y As Integer, z As Integer
    
    i = 1
    
    'Boucle sur les éléments du tableau de paramètres.
    For X = 0 To UBound(Cellules1)
        If TypeName(Cellules1(X)) = "Range" Then
            Set Temp = Cellules1(X)
            'Vérifie si le paramètre passé à la fonction est une cellule simple
            'ou une plage.
            If IsArray(Temp) Then
                'Intègre chaque cellule de la plage dansle tableau.
                For y = 1 To UBound(Temp.Value)
                    For z = 1 To UBound(Temp.Value, 2)
                        'Permet de filtrer les cellules vides.
                        'If Not IsEmpty(Temp(y, z).Value) Then
                            ReDim Preserve VarTab(1 To i)
                            VarTab(i) = Temp(y, z).Value
                            i = i + 1
                        'End If
                    Next z
                Next y
                Else
                    'Permet de filtrer les cellules vides.
                    'If Not IsEmpty(Temp) Then
                        'Intègre la cellule dans le tableau.
                        ReDim Preserve VarTab(1 To i)
                        VarTab(i) = Temp
                        i = i + 1
                    'End If
            End If
        Else
            ReDim Preserve VarTab(1 To i)
            VarTab(i) = Cellules1(X)
            i = i + 1
        End If
    Next X
    
    CreationTableau = VarTab
End Function

Sub Test()
    Dim Tb As Variant, xTab As Variant
    
    Tb = CreationTableau(Range("A1:A10"), Range("C1:C10"), Range("E1"), 80)
    
    '--- Vérifie si le tableau est vide ---
    On Error Resume Next
    'xTab va prendre la valeur Empty si le tableau est vide.
    xTab = UBound(Tb)
    On Error GoTo 0
    
    'Renvoie le nombre d'éléments du tableau
    If Not IsEmpty(xTab) Then MsgBox UBound(Tb)
End Sub