Sub TEST()
Range("A4").Offset(1, 1).Select
If ActiveCell = "" Then [COLOR="Green"]'Si la valeur est vide[/COLOR]
ActiveCell.Value = "TEXTE" [COLOR="green"]'On insère le TEXTE[/COLOR]
ActiveCell.Offset(1, 0).EntireRow.Insert [COLOR="green"]'et on insérer une ligne en dessous[/COLOR]
Else:
ActiveCell.Offset(1, 0).Select [COLOR="green"]'Sinon on descend d'une cellule et la selectionn[/COLOR]
If ActiveCell = "" Then [COLOR="green"]'Et on regarde si la valeur est vide[/COLOR]
ActiveCell.Value = "TEXTE" [COLOR="green"]'Si vide alors on insère le TEXTE[/COLOR]
ActiveCell.Offset(1, 0).EntireRow.Insert [COLOR="green"]'et on insérre une ligne en dessous[/COLOR]
Else:
ActiveCell.Offset(-1, 0).End(xlDown).Offset(1, 0).Select [COLOR="green"]'Sinon regarde encore en dessous[/COLOR]
ActiveCell.Value = "TEXTE" [COLOR="green"]'Et on insère le TEXTE[/COLOR]
ActiveCell.Offset(1, 0).EntireRow.Insert [COLOR="green"]'et on insérer une ligne en dessous[/COLOR]
End If
End If
End Sub