Inserer lignes si cellule contient

Bonjour tout le monde

Je suis débutant Avec VBA

je veux insérer 3 lignes vides après chaque cellule qui contient la lettre T dans ma feuille une

Ma feuille est comme ca

T457

B51

B2

B3

B4

B5

B6

T830

B70

B83

B83

T7383

B88

B74

Merci pour votre réponse

Salut l'Inventeur,

En supposant que tu veuilles traiter une colonne et non toute la feuille, voici.

Double-clique n'importe où dans la(les) colonne(s) qui contient(contiennent) les "T".

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Cancel = True
Application.ScreenUpdating = False
'
iCol = Target.Column
sCol = Split(Columns(iCol).Address(ColumnAbsolute:=False), ":")(1)
For x = Range(sCol & Rows.Count).End(xlUp).Row To 2 Step -1
    If InStr(Range(sCol & x - 1).Value, "T") > 0 Then Rows(x & ":" & x + 2).Insert shift:=xlDown
Next
'
Application.ScreenUpdating = True
'
End Sub

A+