XL 2016 Selectionner une ligne jusqu'à dernière colonne

Sub Colorier_Lignes_Vides_III()
[Indicateurs].Resize(, [A1].CurrentRegion.Columns.Count).Offset(1).SpecialCells(4).Interior.Color = RGB(255, 133, 99)
End Sub

Option Explicit

Function DerColOccup(xrg As Range, Optional relatif)
Dim N, C
   If IsMissing(relatif) Then C = DerColOccupLettre(xrg) Else C = DerColOccupLettre(xrg, 1)
   If IsMissing(relatif) Then N = DerColOccupNombre(xrg) Else N = DerColOccupNombre(xrg, 1)
   If IsNumeric(C) And IsNumeric(N) Then
      DerColOccup = IIf(C > N, C, N)
   ElseIf IsError(C) Then
      DerColOccup = C
   Else
      DerColOccup = N
   End If
End Function

Function DerColOccupLettre(xrg As Range, Optional relatif)
Dim colinf, F As Worksheet, base&

   Set F = xrg.Parent
   If xrg Is Nothing Then DerColOccupLettre = CVErr(xlErrRef): Exit Function
   If xrg.Rows.Count > 1 Then DerColOccupLettre = CVErr(xlErrRef): Exit Function

   On Error Resume Next
   colinf = Application.Match(String(255, "z"), xrg)
   Do
      If IsError(colinf) Then
         colinf = 0
         Exit Do
      Else
         If xrg(colinf) = "" Then
            If colinf = 1 Then
               colinf = 0
               Exit Do
            Else
               colinf = Application.Match(String(255, "z"), xrg.Resize(, colinf - 1))
            End If
         Else
            Exit Do
         End If
      End If
   Loop
   If colinf <> 0 Then DerColOccupLettre = colinf + IIf(IsMissing(relatif), xrg.Column - 1, 0) Else DerColOccupLettre = 0
End Function

Function DerColOccupNombre(xrg As Range, Optional relatif)
Dim colinf, F As Worksheet, base&

   Set F = xrg.Parent
   If xrg Is Nothing Then DerColOccupNombre = CVErr(xlErrRef): Exit Function
   If xrg.Rows.Count > 1 Then DerColOccupNombre = CVErr(xlErrRef): Exit Function

   On Error Resume Next
   colinf = Application.Match(1E+99, xrg)
   If IsError(colinf) Then colinf = 0
   If colinf <> 0 Then DerColOccupNombre = colinf + IIf(IsMissing(relatif), xrg.Column - 1, 0) Else DerColOccupNombre = 0
End Function

Cells(15, Cells(15, 1).SpecialCells(xlLastCell).Column)

ActiveCell.SpecialCells(xlLastCell).Column

Range("A" & Cells(15, 1).SpecialCells(xlLastCell).Column)

Range(Cells(15, 1), Cells(15, Cells(15, 1).SpecialCells(xlLastCell).Column))

Range(Cells(15, 1), Cells(15, Range("A1").End(xlToRight).Column))

Range(Cells(15, 1), Cells(15, Columns.Count).End(xlToLeft))

Sub Colorier_Lignes_Vides()
Dim X
Couleurs = Array(vbRed, vbMagenta, vbGreen, vbBlack, vbYellow, vbCyan, vbOrange)
Randomize 1600
X = Application.RandBetween(0, 6)
[Indicateurs].Resize(, ActiveSheet.UsedRange.Columns.Count).SpecialCells(4).Interior.Color = Couleurs(X)
End Sub

Sub test()
Dim ligne&
ligne = 15
MsgBox Range(Cells(ligne, 1), Cells(ligne, Columns.Count).End(xlToLeft)).Address
End Sub

Sub test2()
Dim cel As Range
Set cel = [A15]
MsgBox Range(cel, Cells(cel.Row, Columns.Count).End(xlToLeft)).Address
End Sub

Sub test5() 'en arriere
Set montableau = Range("a1:g25")
With montableau
MsgBox .Find("*", after:=.Cells(.Cells.Count), SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Address
End With
End Sub

[Indicateurs].Resize(, ActiveSheet.UsedRange.Columns.Count).Offset(1).SpecialCells(4).Interior.Color = RGB(255, 78, 127)