Sub Derniere_Cellule_Ligne()
Dim Num_Ligne As Long
Num_Ligne = ActiveCell.Row
Range('IV' & Num_Ligne).End(xlToLeft).Select
End Sub
Sub Derniere_Cellule_Colonne()
Dim Num_Col As Integer
Num_Col = ActiveCell.Column
Range('A1').Offset(65535, Num_Col - 1).End(xlUp).Select
End Sub
Sub Derniere_Cellule_Ligne_Vide()
Dim Num_Ligne As Long
Num_Ligne = ActiveCell.Row
If Range('IV' & Num_Ligne).End(xlToLeft).Column < 256 Then
Range('IV' & Num_Ligne).End(xlToLeft).Offset(0, 1).Select
Else
MsgBox 'Toutes les colonnes sont utilisées.', vbInformation
End If
End Sub
Sub Derniere_Cellule_Colonne_Vide()
Dim Num_Col As Integer
Num_Col = ActiveCell.Column
Range('A1').Offset(65535, Num_Col - 1).End(xlUp).Offset(1, 0).Select
End Sub